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PREFACE 

To  fulfill  the  need  of  the  U.S.  Coast  Guard  for  a method  to 
evaluate  the  effectiveness  of  any  existing  Coast  Guard  cra^t  or 
of  any  of  a spectrum  of  proposed  alternative  craft  in  the  perform- 
ance of  Coast  Guard  programs,  the  Transportation  Systems  Center 
(TSC)  and  the  U.S.  Coast  Guard  Research  and  Development  Center 
jointly  participated  in  the  Cutter  Resource  Effectiveness  Evalua- 
tion (CREE)  project. 

The  author  would  like  to  acknowledge  the  fine  work  and 
cooperation  of  his  fellow  members  of  the  CREE  project  study  team: 
Anthony  Passera  of  TSC,  LCDR  Fred  Hamilton  of  the  Coast  Guard  Rf|D 
Center,  and  Clark  Pritchett  of  the  Coast  Guard  R5D  Center.  The 
author  is  indebted  to  Patricia  Concannon  of  TSC  for  her  assistance 
in  the  preparation  and  running  of  the  CREE  program;  to  Stephen 
Stark  of  TSC  for  his  assistance  in  the  preparation  of  this  report; 
and  especially  to  Jeffrey  Garlitz  formerly  of  Input  Output 
Computer  Services,  Inc.  and  now  of  TSC  for  his  excellent 
assistance  in  the  upgrading  of  the  CREE  program  and  the 
preparation  and  editing  of  this  report. 
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1.  INTRODUCTION 


The  Cutter  Resource  f,f feet  1 veness  Evaluation  (CREE)  model  is 
a sophisticated,  user-oriented  computer  model  which  evaluates  the 
effectiveness  of  an  existing  Coast  Guard  craft,  or  the  effective- 
ness of  any  of  a number  of  proposed  alternatives  (such  as  an  air- 
cushion  vehicle  or  a hydrofoil),  in  the  performance  of  a selected 
set  of  Coast  Guard  missions  in  a given  location  under  specified 
environmental  conditions.  Selected  craft- -even  those  not 
actually  m ex i stence - -can  he  compared  in  performance  against  each 
other.  The . CREE  model  can  determine  which  of  several  possible 
craft  is  the  best  match  lor  a given  Coast  Guard  operational  re- 
quirement. Conversely,  the  model  can  be  used  to  determine  the 
operational  procedures  which  will  optimize  the  accomplishment  of 
Coast  Guard  missions  with  a given  craft. 

A complete  description  of  the  CREE  model  is  found  in  the 
three-volume  Cutter  Resource  El'l  ect  i veness  Evaluation  Model 
report.*  The  present  report  describes  the  CREE  model  computer 
program.  Sections  2,  3,  and  4 describe  the  program  from  the  user's 
viewpoint,  and  give  a detailed  discussion  of  its  use.  Section  5 
describes  the  structure  of  the  program,  and  some  of  the  difficult 
theorectical  concepts  behind  the  program.  This  section  will  give 
analysts  a better  understanding  of  how  the  CREE  program  functions. 
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2.  CREE  PROGRAM 


The  CREE  model  computer  program  is  written  in  the  FORTRAN  IV 
computer  language,  and  is  presently  resident  in  the  IBM  Model  370/ 
158  computer  at  the  Mitre  Corporation,  Bedford  MA.  The  user  of  the 
CREE  program  need  not  know  the  FORTRAN  IV  language,  but  he  must 
know  the  Time  Sharing  Option  (TSO''  of  the  IBM  Model  370  operating 
system.  Specifically,  lie  must  know  how  to  create  and  edit  data 
files  on  TSO  from  a computer  terminal,  since  cract  and  Coast 
Guard  program  data  must  he  put  in  TSO  data  files  before  the  CREE 
program  can  be  run. 

2.1  CREE  PROGRAM  OVERALL 

From  the  user’s  point  of  view,  the  CREE  program  may  be  thought 
of  as  one  large  program  with  two  sets  of  inputs.  One  set  of  inputs 
describes  the  craft  and  the  environmental  conditions  under  which 
it  is  to  be  evaluated.  The  second  describes  the  Coast  Guard 
program  scenario  in  which  the  craft  will  be  tested.  This  structure 
is  shown  diagrammat icallv  in  Figure  2.1-1. 


OUTPUTS 

FIGURE  2.1-1.  CREE  PROGRAM  FROM  USER'S  VIEWPOINT 
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2.2  CRAFT  AND  ENVIRONMENTAL  INFORMATION  • ■ 

The  user  must  select  the  craft  to  Ii  ■ 
ply  to  the  CRtE  program  the  following  inf  ■■  . 

a.  The  Craft  Type, 

b.  The  Craft  Size  (indicated  bv  Craft 
Craft  Length) , 

c.  The  Craft  Design  Speed,  and 

d.  The  Craft  Fuel  Fraction  (the  fra, t . 
payload  that  is  carried  as  fuel  . 

For  an  existing  Coast  Guard  craft,  onl>  tt  • •• 

input  since  size,  speed,  and  fuel  - f ract  1 or,  , • 
stored  in  the  computer. 

The  user  must  select  the  environment  . < 

to  be  evaluated  and  then  supply  to  the  (R: 
informat  ion : 

1.  The  Visibility  (as  indicated  bv  j . mt. 
Distribution)  , 

2.  A Distribution  of  the  Sizes  of  Fos*-if  r. 
must  be  Towed, 

3.  The  Depth  of  Water  (as  indicated  , 
Distribution)  , and 

4.  The  Sea  State  (as  indicated  bv  a s<  . 

The  above  craft  and  environmental  informat i 
computer  file  called  "CRAFT . DATA" . Detailed  :< 
data  required  in  the  CRAFT. DATA  file  and  the  • 
are  discussed  in  Section  3.1. 

2.3  SCENARIO  INFORMATION  REQUIRED 

The  user  must  design  a scenario  for  the  • ' “ 

which  the  craft  is  to  be  evaluated.  Ihis  is  Jon.  ' i ■ 
Volume  I of  Cutter  Resource  Effectiveness  I 
constructing  a flowchart  scenario  and  then  su;  : .r., 
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required  information  for  each  Group  of  the  flowchart  scenario  on 
the  Group  Data  Sheets.  (A  set  of  blank  Group  Data  Sheets  can  be 
found  in  Appendix  C.) 

To  prepare  the  flow-chart  scenario  for  input  to  the  computer, 
a noded  flowchart  must  be  prepared.  This  is  a version  of  the  flow 
chart  scenario  in  which  only  Groups  and  Probabilities  appear  (i.e., 
"Start",  ’Stop",  and  decision  diamonds  do  not  appear)  and  in 
which  each  junction  or  "node"  is  identified  by  a number.  The 
method  for  constructing  the  noded  flowchart  from  the  original 
flow-chart  scenario  is  described  bv  the  node-placement  rules  listed 
in  Figure  2.3-1  and  illustrated  by  Figure  2.3-2.  These  should 
be  studied  carefully.  The  nodes  are  numbered  by  the  node-numbering 
rules  in  Figure  2.3-1. 

An  example  of  the  use  of  these  rules  on  a sample  flow-chart 
scenario  is  shown  in  Figure  2.3-3.  In  this  example,  the  node- 
placement  rules  produce  the  following  nodes: 


utu.i:  NODES 

1 1 


5 3,  4,  5,  6 

6 9 . 


It  is  efficient  to  draw  the  original  flow-chart  scenario  so 
that  there  are  no  unnecessary  junction  points  leading  to  unnecessary 
nodes.  For  example,  in  Figure  2.3-3  the  junction  corresponding  to 
Node  7 could  have  been  eliminated  by  drawing  the  line  from  the 
ESCORT  directly  to  the  STOP.  This  would  eliminate  the  need  for 
Node  7,  making  the  CRIU;  program  run  slightly  faster. 

When  the  noded  flowchart  lias  been  constructed,  the  user  must 
supply  the  CRF.F.  program  with  the  following  information: 

a.  The  Coast  Guard  Program  Name, 

h.  A Scenario- identi fying  Number, 

c.  The  Maximum  Allowable  Sortie  Time, 

d.  The  Range  Fraction  (the  fraction  of  total 
fuel  capacity  that  can  be  used  on  a sortie), 
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NODE -PLACEMENT  RULES 

1.  Replace  "Start"  and  any  immediately  following  decision 
diamond  by  a node.  (Leave  any  probabilities  unchanged.) 

2.  Replace  "Stop"  and  any  immediately  preceding  junction  point  by 
a node. 

3.  Replace  each  decision  diamond  by  a node. 

4.  Replace  each  junction  point  by  a node.  (Leave  the  probabilities 
unchanged . ) 

5.  Put  a node  between  any  two  Groups  that  are  still  not  separated 
by  a node . 

6 . When  there  are  any  two  nodes  joined  by  more  than  one  path  with 
no  intervening  nodes,  add  a node  to  all  but  one  of  the  paths 
to  make  the  node  sequence  describing  each  path  unique. 


NODE- NUMBERING  RULES 

The  node  created  by  Node  Placement  Rule  1 is  numbered  Node  1 . 

The  node  created  by  Node  Placement  Rule  2 is  numbered  Node  2. 

The  nodes  created  by  Node  Placement  Rules  3 to  0 may  be 
numbered  in  arbitrary  order,  but  sequentially  in  number 
starting  with  Node  3. 


FIGURE  2.3-1.  NODE -PLACEMENT  AND  NUMBERING  RULES 
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RUT  F.  1 
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FIGURE  2.3-2.  ILLUSTRATIONS  OF  NODE  - PLACEMENT  RULES 

t 
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rule  2 


H 


V 


FIGURE  2.3-2.  ILLUSTRATIONS  OF  NODE  PLACEMENT  RULES  (CONTINUED) 

7 


r 


FIGURE  2.3-2.  ILLUSTRATIONS  OF  NODE  - PLACEMENT  RULES  (CONTINUED! 
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RULE  6 


GROUP  A 


THREE  PATHS: 
ALL  17  TO  18 
(AMBIGUOUS) 


ONE  PATH 
ONE  PATH 
ONE  PATH 


17  TO  18 
17  TO  23  TO  18 
17  TO  24  TO  18 


FIGURE  2.3-2.  ILLUSTRATIONS  OF  NODE  - PLACEMENT  RULES  (CONTINUED) 
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START 


FIGURE  2.3-3. 


EXAMPLE  OF  NODE  PLACEMENT 
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e.  The  Number  of  Days  of  Operation, 

f.  A List  of  Tasks  that  are  "Important"  in  this  Coast 
Guard  program, 

g.  The  Total  Number  of  Nodes  in  the  Noded  Flowchart, 

h.  The  Group  Connection  Matrix  (a  matrix  where  each  entry, 
C(i,j),  denotes  the  probability  of  going  from  Node  i 

to  Node  j ) , 

i.  The  Group  - Placement  Matrix  (a  matrix  where  each  entry 
indicates  which  Functional  Task  Group,  if  any,  occurs 
between  each  pair  of  nodes)  , 

j.  Group  Data  (the  data  from  the  Group  Data  Sheets,  for 
each  instance  of  each  Group  in  the  scenario)  , 

k.  The  Number  of  Printouts,  and 

l.  The  Output  Format  (either  printing  sorties  or  not). 

The  above  information  is  put  into  a computer  file  called 
"SCENARIO. DATA" , Detailed  descriptions  of  the  data  required  in 
the  SCENARIO . DATA  file  and  the  formats  for  these  data  are  discussed 
in  Section  3.2. 
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3.  PROGRAM  INPUTS 

The  CREE  program  must  have  available  to  it  descriptive 
information  about  the  chosen  Craft  and  Scenario.  Therefore, 
prior  to  running  CREE , two  files  must  he  establ  ished : the 
CRAFT. RATA  file,  and  the  SCENARIO. DATA  file.  These  two  files 
must  he  created  using  TSO's  NONUM  mode  (i.e.,  no  line  numbers). 

The  files  may  be  established  in  either  of  two  ways.  First, 
the  appropriate  craft  and  scenario  data  may  he  input  into  these 
files  by  the  user  each  time  he  runs  the  program.  Alternatively, 
the  user  may  establish  in  advance  several  Craft  data  files  and 
several  Scenario  data  files.  Using  TSO's  RENAME  or  COPY  features, 
he  could  then  name  the  appropriate  files  CRAFT. DATA  and  SCENARIO. 
DATA  just  for  a single  program  run. 

For  example,  the  user  may  choose  the  first  approach  for 
craft  data  and  directly  input  the  data  to  the  CRAFT. DATA  file 
before  each  run  of  the  program,  since  the  data  for  one  craft  take 
up  only  two  lines.  However,  he  may  create  several  scenario  files 
in  advance,  calling  them,  say,  SCENSAR1 . DATA , SCENSAR2 . DATA , 
SCENELT1 . DATA,  etc.  Then,  if  he  wants  to  run  the  CREE  program 
with  SAR  Scenario  No.  2,  he  RENAME'S  SCENSAR2 . DATA  to 
SCENARIO. DATA.  After  the  run,  he  must  rename  SCENARIO . DATA 
back  to  SCENSAR2 . DATA . 

The  CRAFT. DATA  and  SCENARIO. DATA  files  must  follow  required 
formats.  These  are  discussed  in  the  next  two  sections.  The  user 
should  he  cautioned  that  data  not  properly  allocated  into  the 
allowable  positions  will  produce  incorrect  results.  Note  that: 

a.  Most  data  numbers  are  "r  ight  - just  i t ied'- ; i.e.,  they  fill 
the  right-most  part  of  the  allocated  space, 

b.  Decimal  points  in  data  numbers  must  coincide  with  the 
decimal  point  in  the  format,  and 

c.  In  both  cases,  either  blanks  or  zeroes  may  be  used  to  fill 
blank  spaces  for  proper  positioning  of  data. 
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3.1  CRAFT  DATA 

A sample  CRAFT. DATA  file  is  shown  in  Figure  3.1-1.  For 
each  craft - ef feet iveness  evaluation,  the  CRAFT. DATA  file  contains 
two  lines  of  data,  one  describing  the  craft  to  be  considered,  and 
the  second  describing  the  environmental  conditions  under  which  the 
craft  will  operate.  A CRAFT. DATA  file  may  contain  the  specifica- 
tions for  several  craft -ef feet iveness  evaluations,  each 
represented  by  two  lines  of  data.  The  format  requirements 
are  given  below.  (In  these  formats,  represents  a numeric 

input . ) 

3.1.1  Craft  Selection 

The  craft  is  described  by  the  following  inputs:  the  craft 
type,  the  craft  size  (as  specified  by  either  craft  displacement  or 
craft  length),  the  craft  design  speed  and  the  craft  fuel  fraction. 
For  craft  size,  the  user  only  has  to  input  either  craft  dis- 
placement or  craft  length  (not  both).  The  CREE  program  will 
provide  the  other  value,  for  which  the  user  must  only  input  zero. 


t - [ 0* !.-  1 {>0.6*  £-=c  6.  0*  P-v.  50 

1 * I 'H=  1 < b'-'~  *• 

7=  l>--  v'mm. 0* L-6000. C ■ 0* F*0. 50 

1 . Tl!=  1 * IiH=-  1 * >■ 

J-  46* ris-0000.  C * L-  1 ?:0. 0*3=46.  0*  F=C  . 5ft 
' >.=  ,-'*  Tl'i-  1 *.  DH=  1*SS=  F 
T=  08*  D=0800.  fi*L=  Z'50. 0*  > 0*  F=0. 50 

t * TO-  1 * DH=  1 * r 

r-j  ] 0,^*6000. 6*  1-0000.0*  -:=0O.  0*  c - 0.  00 
1 - i:  * Tl',=  1 * TH—  1 < ‘t --  r 
T=  1 1 1 * £,=43000.  L-0000.6*  ?=00.  0 * F=0.  00 

US=  -*TI'|=  1 * LiH=  t-rS-  -• 


FIGURE  3.1-1.  TYPICAL  CRAFT. DATA  FILE 
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For  existing  Coast  Guard  craft,  the  craft  type  alone  must  be 
specified.  The  other  values  for  existing  Coast  Guard  craft  will 
be  provided  by  the  CREE  program,  and  the  user  must  only  input 
zeroes  for  these  values. 

FORMAT:  "T=#M  = 

EXAMPLE:  "T=  40 , D=0000 . 0 , L=  70 . 0 , S= 50 . 0 , F = 0 . 75" 

EXAMPLE:  "T= 1 08 , D=0000 . 0 , L=0000 . 0 , S=00 . 0 , F=0 . 00" 

The  first  example  shows  the  specification  of  an  HPWC . The 
second  example  shows  an  existing  Coast  Guard  craft.  The  five  data 
values  required  will  now  be  discussed: 

a.  Craft  Type,  T 

The  craft  type  is  specified  by  the  TYPE  CODE,  as  shown  in 
Figure  3.1-2.  The  TYPE  CODE  is  entered  r ight - j ust i f ied . 

b.  Craft  Displacement,  D 

The  craft  displacement  is  specified  in  tons . It  is  ’nput  as 
zero  if  craft  size  is  indicated  by  craft  length,  L;  it  is  input  as 
zero  for  existing  Coast  Guard  craft  (Types  101  and  above).  Figure 

3.1-3  shows  acceptable  ranges. 

c.  Craft  Length,  L 

The  craft  length  is  specified  in  feet . It  is  input  as  zero  if 
craft  size  is  indicated  by  craft  displacement,  D;  it  is  input  as 
zero  for  existing  Coast  Guard  craft  (Types  101  and  above").  Figure 

3.1- 3  shows  acceptable  ranges. 

d.  Craft  Design  Speed,  S 

the  craft  design  speed  is  specified  in  knots . It  is  input  as 
zero  for  existing  Coast  Guard  craft  (Types  101  and  above"!  . Figure 

3.1- 4  shows  acceptable  ranges. 

e.  Craft  Fuel  Fraction,  F 

The  craft  fuel  fraction  is  defined  as  the  fraction  of  total 
useful  payload  to  be  carried  as  fuel.  It  is  input  as  zero  for 
existing  Coast  Guard  craft  (Types  101  and  above).  The  acceptable 
range  is  0.20  to  0.80. 
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TYPE  CODE 

CRAFT 

10 

Hydrofoi  1 , suf>»  • , 

11 

Hydrofoi  1 , Surt.< 

20 

ACV  (Air  Cusb  • 

Pressure  i « r . • 

21 

ACV  - High  Pre- 

30 

SES  (Surf act-  t : 

40 

Planing  Craft 

50 

Catamaran 

60 

SWATH  (Small 

Hull  ) 

70 

Hybrid  Vessel 

80 

Convent lona l t * 

101 

MRB  26' 

102 

PWB  32’ 

103 

UTB  41  ' 

104 

MLB  44' 

105 

MLB  52’ 

106 

ANB  55' 

107 

ANB  63' 

108 

WPB  82' 

109 

WPB  95’ 

110 

WMEC  .10' 

111 

WMEC  270' 

112 

WHEC  378’ 

FIGURE  3.1-2.  CRAFT  TYP1 
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TYPE  AND  CRAFT 


ACCEPTABLE  INPUT  RANGE 


LENGTH  OR 

DISPLACEMENT 

(feet) 

(tons) 

10 

HYDROFOIL,  Submerged  Foil 

75-150 

62-250 

11 

HYDROFOIL,  Surface  Piercing 

70-150 

25-200 

20 

ACV,  Low  Pressure/Length  Ratio 

65-135 

15-200 

21 

ACV,  High  Pressure/Length  Ratio 

50-100 

15-150 

30 

SES 

100-150 

90-250 

40 

PLANING 

85-150 

40-275 

50 

CATAMARAN 

40-135 

10-140 

60 

SWATH 

100-300 

500-3500 

70 

HYBRID 

40-135 

10-140 

80 

CONVENTIONAL 

50-400 

30-3500 

FIGURE  3.1-3.  ACCEPTABLE  RANGES  FOR  LENGTH  AND  DISPLACEMENT 


MAXIMUM  DESIGN  SPEED 

CRAFT  TYPE  ACCEPTABLE  INPUT  RANGE 


10 

HYDROFOIL,  Submerged  Foil 

(knots) 

40-50 

11 

HYDROFOIL,  Surface  Piercing 

30-40 

20 

ACV,  Low  Pressure/Length  Ratio 

50-70 

21 

ACV,  High  Pressure/Length  Ratio 

40-60 

30 

SES 

30-50 

40 

PLANING 

35-45 

50 

CATAMARAN 

30-40 

60 

SWATH 

15-25 

70 

HYBRID 

30-40 

80 

CONVENTIONAL 

15-30 

FIGURE  3.1-4.  ACCEPTABLE  RANGES  FOR  DESIGN  SPEED 


L 
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3.1.2  Environment  Specification 


The  environment  in  which  the  craft  is  to  be  evaluated  (i.e., 
in  which  the  scenario  takes  place)  is  described  by  the  following 
inputs:  the  visibility  distribution  number,  the  towing  distribu- 

tion number,  the  depth  distribution  number,  and  the  sea-state 
distribution  number. 

FORMAT : "VS=# # ,TW= # # , DH= # # ,SS=# #" 

EXAMPLE:  "VS=  3,TW=  4,DH=  1,SS=10" 

The  four  distributions  that  must  be  specified  will  now  be 
discussed . 

a.  Visibi 1 ity- Distribution  Number,  VS 

The  Visibility-Distribution  Number,  VS,  is  right- justified. 
Three  visibility  distributions  are  presently  available  in  the  CREE 
program,  as  shown  in  Figure  3.1-5.  For  example,  Visibility  Distri- 
bution No.  2,  called  "Good",  implies  70  percent  chance  of  Good 
Visibility,  20  percent  chance  of  Fair  Visibility  and  10  percent 
chance  of  Poor  Visibility. 
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FIGURE  3.1-5.  VISIBILITY  PROBABILITY  DISTRIBUTIONS 


DISTRIBUTION 

NUMBER 

DISTRIBUTION 

DESCRIPTION 

V I S 

I B I L 

T Y 

GOOD 

FAIR 

POOR 

1 

Very  Good 

0.9 

0.1 

0.0 

2 

Good 

0.7 

0.2 

0.1 

3 

Good  to  Fair 

0.5 

0.3 

0.2 
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b. 


Towing -Distribution  Number,  TW 


The  Towing-Distr ibut ion  Number,  TW,  is  r ight - just  i f ied  . The 
towing  distribution  is  the  cumulative  probability  distribution  ol 
the  displacements  of  craft  in  the  operating  region  that  may  have 
to  be  towed.  Five  towing  distributions  arc  presently  available  in 
the  CREF.  program,  as  shown  in  Appendix  A and  as  summarized  in  Figure 
3.1-6.  Towing  Distribution  No.  1 indicates  an  operating  region 
where  none  of  the  craft  to  be  towed  are  less  than  0.5  ton,  20  per- 
cent of  the  craft  to  be  towed  are  less  than  1.0  ton,  40  percent  of 
the  craft  to  be  towed  are  less  than  2.5  tons,  etc. 


TOW 

DISTRIBUTION 

NUMBER 

CUMULATIVE  PROBABILITY  OF 

DISPLACEMENT  OF  TOWED  CRAFT 

0.0 

0.4 

0.6 

0.8 

1 .0 

1 

0.5 

1 .0 

2.5 

7 . 0 

10.0 

50.0 

1 

0.7 

2.0 

4.0 

10.0 

30.0 

100.0 

3 

1 . 0 

4 . 0 

7.0 

20.0 

60.0 

500.0 

4 

2.0 

6 . 0 

20.0 

50.0 

80.0 

1000.0 

5 

10.0 

20.0 

50 . 0 

100.0 

300.0 

10.000.0 

FIGURE  5.1-6.  DISTRIBUTIONS  FOR  DISPLACEMENT  OF  TOWED  CRAFT 

c.  Depth-Distribution  Number,  DM 
The  Depth-Distribution  Number,  DH,  is  r ight - just i f ied . The 
depth  distribution  is  the  cumulative  probability  distribution  of 
water  depth.  Only  one  depth  distribution  is  presently  available 
in  the  CREF.  program,  Depth  Distribution  No.  1,  which  corresponds 
to  deep  water  throughout  the  entire  operating  region. 
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d.  Sea-State  Distribution  Number,  SS 

The  Sea-State  Distribution  Number,  SS,  is  right- justified.  Ten 
sea-state  distributions  are  presently  available  in  the  CREE  program, 
as  shown  graphically  in  Appendix  B and  as  summarized  in  Figure  3.1-7. 


SEA- 

STATE 

DISTRI- 

BUTION 

NUMBER 

AVERAGE 

OF 

SEA -STATE 
DISTRI- 
BUTION 

SEA  STATE 

0-1 

1-2 

2-3 

3-4 

4-5 

5-6 

1 

0.5 

1.0 

0.0 

0.0 

0.0 

0.0 

0.0 

2 

1.0 

0.55 

0.40 

0.05 

0.0 

0.0 

0.0 

3 

1.5 

0.20 

0.60 

0.15 

0.05 

0.0 

0.0 

4 

2.0 

0.20 

0.30 

0.35 

0.10 

0.05 

0.0 

5 

2.5 

0.10 

0.30 

0.30 

0.15 

0.10 

0.05 

6 

3.0 

0.05 

0.15 

0.25 

0.40 

0.10 

0.05 

7 

3.5 

0.05 

0.10 

0.15 

0.35 

0.20 

0.15 

8 

4.0 

0.0 

0.05 

0.15 

0.25 

0.35 

0.20 

9 

4.5 

0.0 

0.0 

0.05 

0.20 

0.45 

0.30 

10 

5.0 

0.0 

0.0 

0.0 

0.10 

0.30 

0.60 

FIGURE  3.1-7.  SEA-STATE  PROBABILITY  DISTRIBUTIONS 
3.2  SCENARIO  DATA 

The  format  requirements  for  a SCENARIO . DATA  file  are  given 
below.  In  the  format  descriptions,  represents  "blank",  and 

represents  an  alphanumeric  input.  A sample  SCENARIO. DATA  file, 
which  corresponds  to  the  scenario  of  Figure  3.2-1,  is  shown  in 
Figure  3.2-2. 


faG  PKUGN  AM  = i>  AR7 

SitNArtltl  hfris-  i - 

MAXIMUM  11Mt=  12.0 

--fa  At-,./-  L f Uft/  I I til. 

TTnTrtTt  T nWV,  T 1 U'""  w | ^ W 

,<10.  l)AYS  Of  OPERaT  IUIJ  = lufa 
nUMBEK  Of-  IMPfa/H I AM  TASKS*  fa 
mi  404  400  404  20fa  204 

fcth;tS=  7 

LOf.NtCT  ION  MATRIX* 


0.0U  0.00  0.00  0.00  0 . GO  0.00  o.OO 
-0.00  G.faf}  O-rOO  e-«O0-lrO^-fr»»0  u^OO 
0.00  1.00  0.00  0 . 0 0 0.00  0.00  u.GO 
-0.00  1 rOO  o-.  OO-  O-rOO  -0-.O0-  O r-00  -0.OO  — 
0.UU  0.00  0.00  0.00  0.00  O.OU  1.00 


GROUP  PLACEMENT  MATK1X= 

-0000-  0000—1004  »ooi  - OOU 0 -^001  OOOO- 
0000  OOuO  oupo  OOOo  O000  0000  UOOCi 
oooo -oooo-ooeo- oooo—o loi  0000--0OOO- 

UOfaO  1502  0000  00  0 fa  Ufa  ufa  fa  fa o fa  OOfaO 


0000  0000  0000  0000  0000  OOUU  0102 

OtHHl  -0^2  — 

aGKOOP  data* 

1-.  T^l  . 1 . . S .-.1  t A »-t>  t . 1 

li2i.jt.7iDi0i.lt.ii.li.it0iUiUtUib*0i 


9*2..  7.0.  .3. 20.0.0. 20.11.0. 


It).  l.O.l.U.  0.40*0*  .2*0. 


OUTPUT  f OKMAT  = 1 


FIGURE  5. 2t2.  TYPICAL  SCENARIO . DATA  FILE 
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a . Co  a s t Gu  a rd  P rog  r am  Name 

The  Coast  Guard  Program  Name  is  a three-  or  tour-character  code 
for  the  name  of  the  Coast  Guard  program,  right -just i f ted . 

FORMAT : "♦CG+ PROG RAM3 +088" 

EXAMPLE:  " CG+PROGRAM-  SAR" 

or 

FORMAT : "+CG+ PROGRAM3 0 0 0 0 " 

EXAMPLE:  " CG  PROGRAM=TEST" 

h . See n a r i o Nu mho r 

The  Scenario  Number  is  a user-assigned  two-digit  number 
identifying  the  scenario,  right- justified. 

FORMAT:  "+SCENAR 10+ NO . =00 ' 

EXAMPLE:  " SCENARIO  NO . = 7" 

c . Maximum  Time 

The  Maximum  Time  is  the  maximum  time  allowable  for  any  sortie, 
in  hours ■ 

FORMAT:  "+MAX IMUM+T IME= 0 0 0 0 . 0" 

EXAMPLE:  " MAXIMUM  TIME3  18.0" 

d . Range  I r ac t ton 

The  Range  Fraction  is  the  traction  of  total  fuel  capacity  that 
can  be  used  in  any  one  sortie. 

FORMAT : " ♦ RANGE  + FR ACT  I ON  =0.00" 

EXAMPLE:  " RANGE  FRACTION-O . 90" 

e.  Number  of  Pays  o f Ope  rat  ion 

The  Number  of  P;iys  of  Operation  is  the  number  of  days  the  craft 
will  be  operated  under  the  scenario,  r ight - just  if ied . 

FORMAT : " +NO . ♦ HAYS+OF+OPERAT ION-0000" 

EXAMPLE:  " NO.  HAYS  OF  OPERATION3  180" 
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f .  Important  Tasks 

The  tasks  which  the  user  chooses  to  designate  as  "important" 
will  appear  in  the  Scenario  Evaluation  output.  The  first  line 
has  the  number  of  "important"  tasks  chosen,  right- justified.  The 
next  line  contains  the  Code  Numbers  for  these  "important"  tasks, 

10  to  a line.  The  Code  Number  for  each  task  is  shown  in  Figure 
3.2-3. 

FORMAT:  First  Line:  "+Number+of+Important+Tasks=@@" 

Following  Lines:  " + @@@  + @@@  + @@@+  . . . " 

EXAMPLE:  "Number  of  Important  Tasks=13 

401  411  305  409  302  202  203  102  402  406 
204  413  423" 

g . Number  of  Nodes 

The  Number  of  Nodes  is  the  number  of  nodes  in  the  Flow-Chart 
Scenario,  right- justified. 

FORMAT:  "+N0DES=@@" 

EXAMPLE:  " N0DES=  4" 

h.  The  Group-Connection  Matrix 

The  Group-Connection  Matrix  describes  the  structure  of  the 
Coast  Guard  program  flowchart  by  indicating  which  node  points  are 
connected  to  which  other  node  points,  and  the  probabilities  of  go- 
ing from  a given  node  point  to  any  of  the  nodes  to  which  it  is  con- 
nected. Each  entry,  C(i,j),  is  the  probability  of  going  from  Node 
i to  Node  j (i.e.,  the  Link  Probability  for  the  link  i to  j).  If 
Nodes  i and  j are  not  connected,  the  entry  in  the  Matrix  is  0. 

If  Node  i is  connected  to  Node  j and  also  to  Node  k through  a 
Three-Port  (One  Input/Two  Output)  Search  Group,  Group  10  or  Group 
13,  then  the  probability  entered  for  each  node  pair  is  the  total 
probability  of  going  from  i to  the  Search  Group.  For  example,  in 
Figure  3.2-4,  C(3,5)=C(3,6)  = 1.0,  since  from  Node  3 the  probability 
is  1.0  that  the  Search  will  be  performed.  Also,  C (8 , 10) =C (8 , 12)  = 
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Code 

Task 

Number 

Code 

Task 

ON  SCENE : 

401 

BRD 

BOARD 

* 

402 

FFF 

FIGHT  FIRE  FROM  CG  VESSEL 

403 

FFO 

FIGHT  FIRE  ON  ANOTHER  VESSEL 

404 

GAS 

GENERAL  ASSISTANCE 

* 

405 

INS 

INSPECTION 

406 

LEQ 

LOAD  EQUIPMENT 

407 

LOI 

LOITER 

408 

LSB 

LAUNCH  SMALL  BOAT 

409 

MAC 

MONITOR  ACTIVITIES 

410 

MOS 

MONITOR  OIL  SPILL 

411 

OBA 

ON-BOARD  ASSISTANCE 

412 

OSC 

ON-SCENE  COMMANDER  (GENERAL) 

413 

RBI' 

RETRIEVE  BOARDING  PARTY 

414 

ROB 

RETRIEVE  OBJECTS 

415 

RPE 

RESCUE  PEOPLE 

416 

RSB 

RETRIEVE  SMALL  BOAT 

417 

SSI 

STAKEOUT  SPECIAL  INTEREST  VESSEL 

418 

SZF. 

SEIZE 

419 

TWS 

TAKE  WATER  SAMPLE 

420 

ULQ 

UNLOAD  EQUIPMENT 

421 

WQB 

WORK  EQUIPMENT  FROM  SMALL  BOAT 

422 

WQD 

WORK  EQUIPMENT  @ DRIFT 

- 

423 

WQF 

WORK  EQUIPMENT  @ FIXED  POSITION 

REDUCED  SPEED: 

301 

SDU 

SEARCH  FOR  DISTRESSED  UNIT 

302 

SES 

SLOW  ESCORT 

303 

SPE 

SEARCH  FOR  PEOPLE 

304 

SPT 

SLOW  PATROL 

> 

305 

TOW 

TOW 

1 

CRUISE  SPEED: 

V 

201 

ESC 

ESCORT 

202 

I DC 

IDENTIFY  CRAFT 

203 

IDF 

IDENTIFY  FLEET 

204 

PAT 

PATROL 

205 

SFL 

SEARCH  FOR  FLEET 

206 

SSH 

SEARCH  FOR  SHIP 

207 

TEQ 

TRANSPORT  EQUIPMENT 

208 

TPE 

TRANSPORT  PEOPLE 

209 

TRA 

TRANSIT 

FLANK  SPEED: 

101 

DSH 

DASH 

102 

I NT 

INTERDICT 

FIGURE 

3.2-3.  TASK  CODE  NUMBERS 

1 

0.7;  since  from  Node  8 the  probability  is  0.7  that  the  Search  will 
be  performed.  (Search  success  and  search  failure  probabilities 
are  found  internally  by  the  CREE  program,  and  are  used  to  modify 
the  original  Connection  Matrix  probability  inputs  for  C(i,j)  and 
C(i.k).) 

FORMAT:  "+@.@@+@.@@+0.00  ..." 

The  number  of  probabilities  per  line  = the  number  of  nodes. 

The  number  of  lines  = the  number  of  nodes. 

(If  the  number  of  probabilities  >15,  then  two  input  lines 
are  used  for  each  row  of  the  matrix,  with  15  probabilities  on  the 
first  of  the  two  lines.  In  this  case,  the  number  of  lines  = 
twice  the  number  of  nodes.) 


EXAMPLE  : 

" 0.00 

0.10 

0.75 

0.15 

0.00 

0.00 

0.00 

0.00 

0.00 

0.30 

0.00 

0.70 

0.00 

1.00 

0.00 

0.00" 

NOTH:  The  first  column  should  be  all  zeroes  (nothing  goes 

to  Node  1);  the  second  row  is  all  zeroes  (Node  2 goes  nowhere); 
the  diagonal  is  usually  zeroes  since  nodes  do  not  usually  go  to 
themselves  --  however,  this  is  allowable;  the  sum  of  any  row  is 
1.0  (the  sum  of  the  probabilities  from  any  node  is  1.0),  except 
for  the  double-counting  of  the  probability  of  going  to  a Three- 
Port  Search  Group. 

i . The  Group- Placement  Matrix 

The  Group-Placement  Matrix  indicates  which  Functional  Task 
Group,  if  any,  occurs  between  each  pair  of  connected  nodes.  By 
convention,  there  is  at  most  one  Group  between  any  two  nodes. 

F.ach  entry,  G(i,j),  indicates  the  four-digit  identification 
number  for  the  Group  in  the  link  from  Node  i to  Node  j.  If  there 
is  no  Group,  the  entry  is  zero.  The  first  two  digits  of  the  four- 
digit code  indicate  the  number  of  the  Functional  Task  Group. 

The  second  two  digits  indicate  a user-assigned  instance  number 
for  this  Group.  (The  instance  number  is  needed  since  the  same 
Functional  Task  Group  may  occur  more  than  once  in  a scenario, 
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each  time  with  different  probabilities,  times,  distances,  etc.) 

For  example,  a first  instance  of  Group  19  would  be  represented 
by  "1901",  and  a second  instance  by  "1902".  A zero  entry  can 
be  indicated  by  "0000"  or  simply  by  "0". 

For  the  case  of  Three-Port  Search  Groups,  Groups  10  and  13, 
a special  convention  is  used  only  for  the  Group-Placement  Matrix: 
the  Group  Number  (10  or  13)  is  used  between  the  input  node  and 
the  output  "Success"  node.  Between  the  input  node  and  the 
"Failure"  node,  the  same  instance  number  is  used,  but  the  Group 
Number  is  increased  by  80  (i.e.,  to  90  or  93).  This  use  indicates 
to  CREE  which  is  the  "Success"  node  and  which  is  the  "Failure" 
node.  For  example,  in  Figure  3.2-4  if  both  Searches  are  Group  13, 
then  G (3 , 5)  = 1301 , G(3,6)  = 9301  , G (8 , 1 0)  = 1 302  , and  G (8 , 1 2 ) = 9302 . 

FORMAT:  " + + + . ..." 


The  number  of  entires  per  line  = the  same  as  for  the 
Group  Connection  Matrix. 


EXAMPLE:  " 0 1701 

0 0 

0 0701 

0 0702 


1501 

0 

0 

0 


0 

0 

1801 

0 


I » 


NOTE:  In  the  Group  Placement  Matrix,  there  will  always  be  a 

zero  entry  corresponding  to  each  zero  entry  in  the  Group- 
Connection  Matrix.  There  may  also  be  some  zero  entries  correspond- 
ing to  non-zero  entries  in  the  Group-Connection  Matrix. 


j . Group  Data 

For  each  Group  appearing  in  the  Group-Placement  Matrix,  there 
will  be  a line  of  Group  Data  indicating  the  probabilities,  the 
task  times  and  distances,  and  other  data  pertinent  to  the  tasks 
in  the  Group.  Each  line  is  in  free  format,  with  the  numbers  in 
the  following  order,  separated  by  commas: 


g,i,e1,e2,e3 ,en,  k*0, 
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where:  £ = Group  Number, 

i = Instance  Number, 
e . = The  jth  Group  -Data  Entry. 

Inch  line  of  Group  Data  Entries  (the  e’s)  must  be  in  the  required 
order  for  its  corresponding  group,  as  shown  in  Figure  3.2-5. 

On  each  line  there  must  be  20  numbers.  If  the  g,i,  and  e's  do 
not  consist  of  20  numbers,  zeroes  must  be  added  to  complete  the 
line.  A shorthand  notation  for  k zeroes  is  k*0  (e.g.,  4*0  = 0,0, 
0,0).  For  each  line,  k=20-n-2,  where  n is  the  number  of  required 
Group-Data  Entries.  Each  line  of  numbers  must  end  with  a comma 
except  the  last  line  of  numbers.  The  entire  set  of  numbers  must 
he  preceded  by  a line  that  has  ' SGKOUP  PAlA="on  it  and  followed 
by  a line  that  has  " SEND".  The  order  the  groups  appear  in 
Group  Data  is  arbitrary,  but  it  is  convenient  to  order  them 
numerically.  (There  should  not  be  any  Group-Data  entries  for 
artificial  Groups  90  and  93,  as  the  data  needed  will  be  already 
included  under  the  entries  for  the  corresponding  Groups  10  and  13.) 
FORMAT:  First  Line:  "f,GROUP+DATA  = " 

Following  lines:  One  line  for  each  Group  instance,  in 

free  format,  20  numbers  per  line,  ending 
with  a comma.  (No  comma  at  the  end  of 
the  last  of  these  lines). 

Last  line:  " + fJEND" 

EXAMPLE:  " 5 GROUP  DATA= 

7.1. . 5. .5. 8. 5. 4. 13*0, 

7. 2. . 6. .4  20,4,10,13*0  , 

15,  l,.l,. 9, 0,3, 3, 0,12*0, 

17.1. . 8. .2. .4. 3. 60. 1.4. .6. 5. 60. 1.4. 8*0, 

18,1,  .5,  .2,  .1,-2,  .1,4,  .1,2, 1,2, 8*0 
SEND 

NOTE:  For  example,  the  third  line  of  numbers  gives  the 

following  data  for  Group  15,  Instance  1:  PI  = 0.1,  P2  = 0.9, 

P3  = 0.0,  D1  = 3 nautical  miles,  D2  = 3 nautical  miles,  and  D3  = 

0 nautical  miles. 
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Group 

1 P1,P2,P3,P4,T(1) ,T(2) ,T(3) ,T(4)  ,T(Si  . 1 t 

2 P1,P2,D(1) , SPEED (1) ,D(2) 

3 P1,P2,T(1),T(2) ,T(3)  ,T(4) 

4 P1,P2,T(1),D(1),N(1),T(2) 

5 P1,P2,T(1) ,T(2) ,T(3) ,T(4) ,T15) .Tift 

6 P1,P2,P3,P4,T(1) ,T(2) ,T(3)  ,T(4) 

7 PI ,P2,D(1) ,SPEED(1) ,D(2) 

8 PI ,P2,T(1) ,T(2) 

9 PI ,P2 ,P3 ,D(1) ,D(2) ,SPHED(2) ,Dl3) 

10  P 1 , P2 , S . W . ( 1 ) , AREA ( 1 ) ,«  SEARCHES  1 1 . 

MAX  SEARCH  TIME(l),  S.K.(2),  AREA  . 
COV.FAC. (2) , MAX  SEARCH  TIME (2) 

11  D(l) 

12  T ( 1 ) , D ( 2 ) 

13  S.W. (1) ,E(1) , TRGT  SP(1),T  MAX  ID 

14  T(l) 

15  P1,P2,P3,D(1) ,D(2) ,D(3) 

16  PI , P2 ,T( 1 ) ,T(2) 

17  P1,P2,T(1)  ,D(2)  .AREA  (2)  , WT ( 2 ) , T ( 3 ! , D i 4 . 

18  P1,P2,P3,P4  T(l) ,T(2) ,T(3) ,T(4) ,T(S)  . : - 


Key 


Symbol 
P 

I 5 

SPEED 
N 

S.W. 

AREA  (Group  10) 

* SEARCHES 
COV . FAC . 

MAX  SEARCH  TIME 
E 

TRGT  SP 
T MAX 

AREA  (Group  17) 
WT 

NOTE:  Numbers 


l)e  l’  l n 1 1 io i. 

Probabil  itv 
T ime 

Distance 
Craft  Speed 
Number  of  Ships 
Sweep  Width 

Initial  SAR  Search  \i-.  .. 
Number  of  Searches 
Coverage  Factor  I t • r 
Area  Covered  in  • 
Maximum  Search  I im» 
Initial  Error  in  Tai.i- 
Target  Speed 
Maximum  Search  Time 
Deck  Area  Required  h 
Equipment 

Weight  of  Transported  ■ . 
parentheses  denote  the  t.i-i  . 


the  Group  to  which  the  data  item  refers. 


FIGURE  3.2-5. 


REQUIRED  GROUP  DAI \ : ~ 
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K.  Number  of  Printouts 


The  Number  of  Printouts  is  a two-digit  r ight - j us t i f ied 
number,  greater  than  zero,  indicating  the  number  of  times  each 
sortie  should  be  printed.  Each  sortie  will  be  printed  this  many 
times  before  tbe  following  sortie  is  printed.  If  it  is  desired 
that  no  sorties  be  printed  out,  set  this  value  to  1,  and  use 
Output  Format  = 2. 

FORMAT : "+NUMBER+OF+PRINTOUTS«@@" 

EXAMPLE : " NUMBER  OF  PRINTOUTS'  2" 

1 . Output  Format 

The  Output  Format  is  a one-digit  number  indicating  if  sorties 
should  be  printed  or  not: 

Output  F’ormat  = 1 means  "print  sorties." 

Output  Format  = 2 means  "do  not  print  sorties." 

Under  Output  Format  2,  all  pages  up  to  and  including  the 
"Scenario  Data"  page  will  be  printed  as  well  as  the  "Sortie  Sum- 
mary", "Scenario  Overall  Results",  and  "Scenario  Evaluation" 
pages. 

FORMAT:  "+OUTPUT+ FORMAT- 0" 

EXAMPLE:  " OUTPUT  FORMAT-2" 
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4.  RUNNING  CREE  PROGRAM 


When  the  user  has  constructed  a CRAFT. DATA  file  describing 
the  craft  and  environmental  conditions  and  a SCENARIO . DATA  file 
describing  the  Coast  Guard  program,  he  is  ready  to  run  the  CREE 
program.  Running  the  CREE  program  requires  one  short  step.  The 
TSO  "SUBMIT"  Command  is  utilized,  and  the  user  simply  enters: 

SUBMIT  CREE 
on  his  terminal. 

The  output  for  a CREE  model  run  consists  of  the  following: 

a.  Craft  Characteristics, 

b.  Craft  Parameters  for  Master  Tasks, 

c.  Task  Probabilities  of  Success  for  Master  Tasks, 

d.  Craft  Parameters  for  Individual  Tasks  (two  pages), 

e.  Task  Probabilities  for  Individual  Tasks  (.two  pages), 

f.  Scenario  Data  (as  input  by  the  user), 

g.  Sortie  Outputs  (only  if  Output  FormatM), 

h.  Sortie  Summary, 

i.  Scenario  Overall  Results,  and 

j.  Scenario  Evaluation. 

Examples  of  each  of  these  output  pages  arc  shown  in  Figures 
4-1  through  4-10,  respectively. 
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4-1.  CRAFT  CHARACTER I ST 

ICS  OUTPUT 

34 


A 


C U A 1 1 l> 

A It  A 

M E 1 

CRAI  1 TYPE 

CAT  At-’ ARAN 

1)1  SPt.ALL1''  C 1. T 

94 

tors 

LEND  lit 

OS 

Ft  Ll 

DESIGN  SPUD 

40 

knots 

FULL  1 l(M  1 ION 

0 . Su 

VlSlolLIlY  UIKTRJlMJT  IOW  f:0.  1 
TOW  UlSTKluUT  IU.’J  NO.  «l 
DEPTH  LISlRlHUl  ION  f.'CJ.  1 
SL«  STATE  DI STR lnUT  I Cti  NO.  ‘4 


( A VC  RAC  I.  SLA 

SI  A1L- 

a.  o i 

TASK 

CARGO 

URAF  1 

I’.ANtUV 

SEa 

TOR 

COOL 

CF’CTT 

S T A 1 r. 

cc 

UF 

14  N 

LS 

TW 

01-  scene: 
asst 

» _ 

1 .00 

0.94 

1 .00 

ASSIST 

LtORD 

-- 

1 .00 

0.94 

1.00 

- - 

1,0  ARU 

MNAC 

- - 

1 . 00 

0.94 

1 . 00 

FOR  IT  OK  ACT  I VI  TILS 

rtkv 

-- 

1 . 00 

0.94 

1.0  0 

RLTR1LVL 

WAIT 

-- 

1.00 

-- 

WAIT 

WL  00 

- - 

1 .00 

1.0  0 

WORK  ECUlPRENT  n!  DRIFT 

WLuP 

“ “ 

J . 00 

0.94 

1 .00 

- - 

WORK  EQUIPMENT  0 POSIT 

1 ON 

RLDUCt D SPEED: 
SU1U 

1.00 

1.00 

SEARCH  FOR  DISTRESSED 

unn 

SLSC 

-- 

-- 

-- 

1.00 

SLOW  ESCORT 

SHAT 

- - 

1.00 

-- 

1.00 

SLOW  PATROL 

SHtO 

-- 

1.00 

-- 

1.0  0 

- - 

SEARCH  t OR  PEOPLE 

TOWS 

— 

— 

1.00 

1 . Oo 

0.91) 

TOWS 

CRUISE  speed: 
LSCT 

1 .00 

ESCORT 

1UNT 

-- 
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1.00 

1ULKT1F  Y 

HATL 

-- 

-- 

1.0C 

PATROL 

stgt 

-- 

1 . (J  u 

1.00 

-- 

SEARCH  FOR  TARGCT 

TKI’T 

• » ♦ * 

1 . Ou 

TRANSPORT 

THST 

- “ 

- - 

- - 
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- - 

TRANSIT 

FLANK  SPLCl) 
KSl’O 

__ 

l.oo 

RESPOND 

**«♦  UEPLNOLNT  UPON  SCENARIO  ( C . . . FOOTPRINT  AND  FLIGHT  OF  CARGO) 
FIGURE  4-2.  CRAFT  PARAMETERS  FOR  MASTER  TASKS  OUTPUT 
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FIGURE  4-4.  CRAFT  PARAMETERS  FOR  INDIVIDUAL  TASKS  OUTPUT 


L 


37 


! 


c It  A F 1 -P-  A K A M L-T  L R -S 


LKfcfl  TTPL  hturo) oil-submlkglu  foil 

blSPLAt  LMLnT  - Id®  wws- 
CLNGIH  lot)  tk.LT 

i/LSloN  SPLLO  GO  KNOTS 

FULL  FRACTION  O.bO 


VISIBILITY  01STKIBUT  ION  NO.  i: 
)0*  01S1KI-BUT1  UN  NO.  1 
Li L I Iti  DISTRIBUTION  NO.  1 
SL/,  S1AIL  DlSTKlbuT  ION  NO,  b 
(AVLRAGL  SLA  STATL=3.0> 


Task  c ak  ol 

COLL  CPCTt 

oKaF  J 

NAN  LI 

iV  -SLA 
SI  AIL 

— I Um 

cc 

OF 

(“IN 

LS 

T is 

hi  nur  i n KFLLiJi  . ...... 

sou 

i.UU 

-- 

0.9b 

Q.Sh 

-- 

SLARCH  FOR  DISTRLSSLU  UNIT 
SI  Oh  fSLCKl 

SPL 

sn  - - -- 

1.00 
i - v ^ - 

-- 

U.Sb 

-- 

SLARCH  FUR  PLOPLL 

SI  He  LIAlft.fli 

10k. 

I.UU 

u.ys 

1.00 

TOW 

CKU1SL  SHLLU: 

CSC 

LSCOR1 

IOC 

1-Uf-  -- 

i.UU 

U.yb 

y,  w‘f  _ 

-- 

IDLNIIFt  CRAFT 

IULNT IF  Y 

PAT 

J>F  L 

-- 

U.bb 

o . ys 

-- 

PATROL 

SLARCH  I LK  fi_MT 

SSH 

T L 0 * * * * 

i.UU 

-- 

o.ys 
o*  yb 

-- 

SLARCH  FOR  SHIP 

TKAiuSPnk  ] 

T PL 

-- 

u .*•> 

n 

-- 

TRANSPORT  PLOPLL 

_LL?  ALlSLI  T . . 

flank  spt  ll: 

OSH 

lAt.T 

-- 

m ^ 

O.VS 
— 0„9i>  - 

M 

OASH 

-1NTLKOIC4 

*♦**  UEPtNOtNT  UPON  SLtNAKlU  (L.o..  FOOTPRINT  ANU  WL  I OUT  OF  CARGO) 


FICURF  4-4.  CRAFT  PARAMF.THRS  FOR  INDIVIDUAL  TASKS  OUTPUT 
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5.  CREE  PROGRAM  STRUCTURE 


The  CREE  program  is  stored  in  the  computer  as  a main  program, 
CREE,  and  three  sections  of  subprograms:  the  Characteristics 
Section,  SCHAR,  which  computes  the  craft  characterist ics ; the 
Parameter/Task  Probability  of  Success  Section,  SPTPOS,  which 
computes  parameters  and  task  probabilities  of  success;  and  the 
Program  Probability  of  Success  Section,  SPRPOS,  which  finds  the 
sorties  and  computes  the  evaluation  outputs.  Each  subprogram 
section  consists  of  a main  subprogram  and  several  subroutines. 

The  main  program  and  the  three  subprograms  are  each  stored  in  a 
separate  computer  file.  Because  it  is  so  large,  the  Program 
Probability  of  Success  Section  is  stored  in  two  files:  SPRPOS 
having  the  main  subprogram,  and  SPRSUB  having  the  subroutines 
that  go  with  it.  Thus  the  internal  structure  of  the  program 
storage  is  as  shown  in  figure  5-1. 

The  computer  files  associated  with  the  CREE  program  are  listed 
in  figure  5-2.  There  arc  five  object  files  in  which  the  CREE 
Program  is  stored.  A control  file,  CREE. CNTL,  contains  the  Job 
Control  Language  (JCL)  commands  needed  to  run  the  CREE  Program, 
obtaining  needed  inputs  from  the  two  input-data  files  CRAFT. DATA 
and  SCENARIO. DATA. 

The  above  files  allow  use  of  the  CREE  model.  However,  to  make 
modifications  to  the  CREE  program  possible,  the  five  fortran  files 
corresponding  to  the  object  files  are  provided,  along  with  seven 
control  files.  If  a change  is  made  to  one  of  the  fortran  files 
(e.g.,  SCHAR. FORT),  the  corresponding  control  file  (e.g.,  CMSCHAR. 
CNTL)  can  be  SUBMITed.  This  file  contains  the  JCL  to  recompile 
the  FORTRAN  file  and  then  run  the  entire  CREE  program  with  the 
modification.  If  more  than  one  program  section  is  changed,  the 
CMALL.CNTL  file  can  be  used  to  recompile  all  five  fortran  files  and 
run  the  entire  program.  A LISTCREE . CNTL  file  contains  the  JCL  to 
print  a listing  of  the  entire  CREE  Program. 

A listing  of  the  CREE  program  is  in  Appendix  D. 
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Lists  all  Fortran  Files. 

Runs  CREE  Program. 

Compiles  all  Fortran  tiles  and  runs  CRFF  Program. 
Compiles  CRFE.FORT  and  runs  CRFF.  Program. 

Compiles  SCHAR.FORT  and  runs  CRFF  Program. 
Compiles  SPTPOS.FORT  and  runs  CRFF.  Program. 
Compiles  SPRPOS . FORT  and  runs  CRFF  Program. 
Compiles  SPRSUB.FORT  and  runs  CRFF.  Program. 

fortran  files 

CREE . FORT 
SCHAR.FORT 
SPTPOS.FORT 
SPRPOS. FORT 
SPRSUB.FORT 


OBJECT  FILES 

CREE. OBJ 
SCHAR . OBJ 
SPTPOS . OBJ 
SPRPOS. OBJ 
SPRSUB . OBJ 


DATA  FILES 

CRAFT. DATA  Craft  and  Environmental  Data 

SCENARIO . DATA  Scenario  Data 

A 

3 

a 

S 


Main  Program 
Characteristics  Section 
Parameter/Task  POS  Section 
Program  POS  Section:  Main  Subprogram 
Program  POS  Section:  Subroutines 


Main  Program 
Characteristics  Section 
Parameter/Task  POS  Section 
Program  POS  Section:  Main  Subprogram 
Program  POS  Section:  Subroutines 


I 


CONTROL  FILES 

L1STCREE.CNTL 
CREE. CNTL 
CMALL.CNTL 
CMCREE.CNTL 
CMSCHAR.CNTL 
CMSPTPOS . CNTL 
CMSPRPOS . CNTL 
GMSPKSUB . CNTL 


FI  CURE:  5-2.  CRFF  PROGRAM  COMPUTER  FILES 
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5.1  METHODOLOGY 


The  PROPOS  program  finds  all  possible  paths  through  the  flow- 
chart. The  procedure  it  uses  for  doing  this  is  complex.  A 
description  of  the  basic  concepts  follows. 

Consider  first  the  simplified  "one-level"  case  when  it  is 
desired  only  to  find  all  possible  paths  through  the  overall  Flow- 
Chart  Scenario  without  looking  internally  at  the  Functional  Task 
Groups  that  occur  between  overall  scenario  nodes.  Thus,  we  neglect 
temporarily  the  fact  that  there  are  several  possible  paths  between 
any  pair  of  connected  overall  nodes  which  have  a Functional  Task 
Group  between  them.  The  method  the  PROPOS  program  uses  to  solve 
this  still  difficult  problem  of  finding  all  paths  through  a single 
flowchart  will  now  be  discussed. 

The  program  starts  at  Node  1,  and  places  the  number  of  this 
node  (i.e.,  "1")  on  a last  - in/ f irst - out  memory  structure  called  a 
"push-down  stack".  Then  it  finds  the  lowest  numbered  node,  call 
it  Node  i,  that  is  connected  to  Node  1.  This  second  node  (i.e., 
"i")  is  then  added  to  the  push-down  stack.  Then,  starting  from 
Node  i,  the  program  looks  for  the  lowest  numbered  node,  call  it 
Node  j,  which  is  connected  to  Node  i.  This  third  node  (i.e.,  "j") 
is  also  added  to  the  push-down  stack.  If  Node  2 is  eventually 
reached,  indicating  a complete  path  through  the  flowchart,  the 
program  prints  the  path  that  has  been  found,  as  indicated  by  the 
numbers  of  the  nodes  stored  on  the  push-down  stack. 

When  the  program  can  proceed  no  further  (i.e.,  a complete  path 
has  been  found,  or  a node  has  been  reached  which  is  connected  to 
no  other),  the  program  backtracks.  It  removes  the  top  (i.e.,  the 
last)  entry  on  the  push-down  stack.  It  then  checks  if  there  is 
another  node  with  a higher  number  than  the  node  just  removed  from 
the  stack  which  is  connected  to  the  node  now  at  the  top  of  the 
stack.  If  so,  this  node  is  added  to  the  push-down  stack.  If  no 
such  node  exists,  the  program  removes  the  new  top  entry  of  the  push 
down  stack  and  tries  again.  Nodes  are  added  to  and  removed  from 
the  push-down  stack  until  all  possible  paths  through  the  flowchart 
have  been  found. 


FIGURE  5.1-1.  PROPCS  ALGORITHM  FLOW  CHART 


FIGURE  5.1-1.  PROPOS  ALGORITHM  FLOW  CHART  (CONTINUED; 
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An  example  will  illustrate  this  process.  Node  1 is  made  the 
first  entry  on  the  push-down  stack.  If  Node  1 is  connected  to 
Nodes  3,  5,  and  6,  then  Node  3 is  the  second  entry  on  the  push -down 
stack.  If  Node  3 is  connected  to  Nodes  7 and  9,  then  Node  7 is 
added  to  the  push-down  stack.  If  Node  7 is  connected  to  Nodes  2 
and  8,  then  Node  2 is  added  to  the  push-down  stack,  and  a complete 
path  has  been  found.  This  path,  1 -3-7-2,  is  printed  out,  and  the 
program  proceeds.  Node  2 is  removed  from  the  push-down  stack, 
bringing  Node  7 to  the  top  of  the  stack.  Since  Node  7 is  con- 
nected to  Nodes  2 and  8,  Node  8 can  be  added  to  the  push- down 
stack.  If  Node  8 is  connected  to  Nodes  2 and  4.  then  Node  2 is 
added  to  the  push-down  stack,  and  a second  complete  path,  1-5-78-2, 
has  been  found.  In  this  manner,  the  program  proceeds  to  find  all 
possible  paths  through  the  flowchart. 

The  above  "one-level"  process  is  made  significantly  more 
complex  when  it  is  desired  to  find  all  complete  paths  through 
the  flowchart  where  a complete  path  includes  proceeding  a specified 
way  through  the  overall  scenario  and,  each  time  a Functional  Task 
Group  is  encountered,  proceeding  a specified  way  through  the  Group. 
Thus,  every  path  through  a Functional  Task  Group  in  an  overall  path 
must  be  combined  with  each  possible  path  through  all  other 
Functional  Tasks  Groups  in  the  overall  path.  Therefore,  this  is  now 
a "two- level"  problem.  The  push-down  stack  now  contains  two 
levels  of  information:  overall  nodes  and  group  nodes.  The  rules 
for  adding  and  deleting  nodes  from  the  push-down  stack  are  much 
more  complex,  as  this  is  a much  more  difficult  problem.  However, 
the  same  basic  concepts  as  in  the  "one-level"  case  are  used. 

Figure  5.1-1  shows  the  flow  chart  for  the  PROPOS  algorithm 
for  finding  all  paths  through  a two-level  scenario. 

5.2  METHODOLOGY  ENHANCEMENT  FOR  EFFICIENCY 

The  concepts  discussed  in  Section  5.1  are  used  to  perform  the 
difficult  task  of  finding  all  possible  paths  through  a complex 
two-level  flowchart  describing  a Coast  Guard  program.  However, 
although  this  methodology  solves  the  problem,  it  is  inefficient. 
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Many  of  the  paths  found  will  not  be  realizable  (even  though  they 
are  complete  paths)  because  either  they  exceed  the  sortie-time 
allotment  or  they  cause  the  craft's  fuel  use  to  exceed  its  fuel 
supply . 

Each  craft  for  which  the  CREE  model  is  run  has  associated  with 
it  a time  restriction  and  a fuel  restriction.  The  time  restriction 
(maximum  time  which  a craft  has  to  complete  a path  through  the 
overall  scenario)  is  input  by  the  user.  The  fuel  restriction  (the 
maximum  fuel  that  can  be  used  by  the  craft)  is  a function  of  the 
craft's  fuel  capacity  and  the  fuel  fraction  input  by  the  user. 

Any  sequence  of  tasks  (i.e.,  a path)  which  will  take  too 
much  time,  or  use  too  much  fuel,  cannot  actually  be  accomplished 
by  the  craft.  When  such  a path  is  found  by  the  methodology,  it 
is  rejected.  However,  -omputer  time  is  still  expended  in  finding 
the  complete  path.  A great  saving  in  computer  time  can  be  made 
if  a way  is  found  to  stop  as  soon  as  possible  the  tracing  out  of  a 
path  that  will  lead  to  exceeding  the  time  or  fuel  restriction. 

Two  such  techniques  have  been  found,  and  have  proved  to  save 
significant  computer  time,  often  cutting  computer  time  by  a 
factor  of  five  or  more. 

Figure  5.2-1  illustrates  the  basic  concept  of  the  two  tech- 
niques. (The  fuel  restriction  is  illustrated  in  this  figure,  but 
the  entire  discussion  applies  equally  well  to  the  time  restriction.) 
Path  1-3-4-5-2  will  yield  a total  fuel  use  of  1700  gallons,  exceed- 
ing the  fuel  restriction  of  1000  gallons.  Thus,  path  1-3-4-5-2 
should  be  rejected.  If  this  path  can  be  terminated  before  it  is 
completely  traced  out,  computer  time  will  be  saved. 

The  basis  of  the  first  technique  is  that  when  a partial  path 
has  been  found,  the  computer  will  try  to  continue  the  path  only  to 
a node  that  will  not  put  the  total  fuel  use  over  the  fuel  restric- 
tion. In  the  case  of  path  1-3-4-5-2,  when  the  partial  path  1-3-4 
has  been  found  (using  a total  of  600  gallons),  the  computer  will 
stop  tracing  the  path.  It  will  not  be  able  to  find  any  way  to 
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continue  the  path  that  will  keep  the  total  fuel  under  1000  gallons 
(the  only  possible  path  addition,  Node  S,  will  add  900  to  the  600 
gallons  already  used).  Thus,  fruitless  path  1-3-4-5-2  is  terminated 
after  1-3-4,  saving  two  steps. 

Using  the  second  technique,  the  minimum  fuel  from  a node  to 
the  final  node  (Node  2)  is  found.  Then  when  each  node  is  reached 
in  finding  a path,  if  the  minimum  fuel  from  this  node  to  the  end 
plus  the  fuel  used  to  get  to  this  node  is  greater  than  the  total 
fuel  restriction,  all  paths  continuing  through  the  node  are 
rejected.  In  Figure  5.2-1,  it  can  be  seen  that  the  minimum  fuel 
to  go  from  Node  3 to  the  final  node  (Node  2)  is  600  gallons.  How- 
ever when  Node  3 has  been  reached  from  Node  1,  500  gallons  have 
already  been  used.  Therefore,  the  computer  rejects  all  paths  begin- 
ning with  1-3.  Thus,  paths  1-3-4-5-2,  1-3-6-7-2,  and  1-5-6-2  are 
all  rejected  at  the  same  time. 

This  process  is  even  more  powerful  when  the  boxes  in  the 
flowchart  are  not  simple  tasks,  as  in  the  example  in  Figure  5.2-1, 
but  are  full  Functional  Tasks  Groups;  i.e.,  little  flowcharts  in 
themselves.  If  the  groups  in  each  box  in  Figure  5.2-1  all  had 
three  possible  internal  paths,  then  by  stopping  at  Node  3,  there 
would  be  45  possible  paths  that  would  be  rejected  when  Node  3 was 
reached,  without  the  computer  having  had  to  trace  out  any  of  them. 

To  accomplish  the  above,  the  minimum  fuel  used  from  each  node 
to  Node  2 must  be  found.  This  is  not  easy  since  there  may  be  many 
possible  paths  from  each  node  to  Node  2,  and  they  will  vary  for 
each  Coast  Guard  program  flowchart.  If  the  computer  had  to  trace 
out  each  of  these  paths,  it  would  use  more  time  than  would  be 
saved  by  the  entire  technique. 

Therefore,  the  technique  can  only  be  useful  if  a method  can 
be  conceived  which  will  find  the  minimum  fuel  from  each  node  to 
Node  2 in  a very  efficient  manner.  Such  a method  was  found,  and  is 
outlined  in  the  next  section. 


S.3  ALGORITHM  FOR  MINIMUM  FUEL  USE  FROM  ANY  NODE  TO  THE  END  OF 

l HE  SORTIE 

The  algorithm  for  finding  the  minimum  fuel  that  car.  he  used 
to  get  from  any  node  to  the  end  of  the  sortie  (Node  2)  is  as 
follows : 

( 1 ) Minimum  Fuel  through  Each  Group 

The  minimum  fuel  through  each  Functional  Task  Group  is  found 
by  calculating  and  comparing  the  fuel  use  in  each  of  the  possible 
paths  through  that  Group.  This  can  be  done  relatively  easily, 
since  the  Groups  are  pre-set  and  thus  the  possible  paths  through 
each  Group  are  known  in  advance. 

(2)  Initialization 

To  initialize  the  algorithm,  the  fuel  consumed  in  getting  to 
Node  2 (the  end  of  the  sortie)  from  each  node  in  zero  node-to-node 
steps  is  found.  This  value  must  be  zero  for  Node  2 itself,  and  in- 
finity for  all  other  nodes  (i.e.,  it  takes  no  fuel  to  get  from  Node 
2 to  Node  2 in  zero^ steps,  but  it  takes  infinite  fuel--that  is,  it 
is  imposs ible- - to  get  to  Node  2 from  any  other  node  in  zero  node-to- 
node  steps)  . 

(3)  1 te  ration 

This  iteration  describes  a general  method  of  finding  the  mini- 
mum fuel  consumed  to  go  from  each  node  to  Node  2 in  n node-to-node 
steps , based  upon  knowledge  of  the  minimum  fuel  consumed  to  go  from 
each  node  to  Node  2 in  n-1  node-to-node  steps.  The  iteration  for 
n=l  is  based  upon  the  values  for  n=0  found  in  the  Initialization. 

The  iteration  continues  for  n=2,3,4,  etc.,  until  a stopping  criterion, 
discussed  below,  is  met. 

The  mini  mm  fuel  from  each  node  to  Node  2 in  n node-to-node 
steps  (n=l,2,3,4,  etc.)  is  found  as  follows:  For  any  n, 

a.  j_f  Node  A is  connected  directly  to  Node  B, 

b.  j_f  the  minimum  fuel  path  from  Node  B to  Node  2 that  has  been 
found  thus  far  in  the  iteration  takes  exactly  n-1  steps,  and 


c.  ijf  the  fuel  used  from  Node  A to  Node  B plus  the  fuel  used 
in  Node  B's  n-1  step  path  is  less  than  the  minimum  fuel 
from  Node  A to  Node  2 that  has  been  found  thus  far, 

then : the  minimum  fuel  path  (thus  far  found)  for  Node  A is  an 
n-step  path  which  goes  to  Node  B in  1 step,  and  then  follows  Node 
B's  n-1  step  path  the  rest  of  the  way. 

(4)  Stopping  Criteria 

If  there  exists  an  n+1  step  minimum  fuel  path  from  Node  A to 
Node  2,  and  if  Node  B is  the  second  node  on  this  path,  then  the  n 

step  path  from  Node  B to  Node  2 must  be  the  n step  minimum  fuel 

path  from  Node  B to  Node  2.  Thus,  if  there  is  no  n step  minimum 

path  from  any  node  to  Node  2,  there  cannot  be  any  minimum  path  which 
requires  more  than  n nodes.  Therefore,  if  no  n step  minimum  fuel 
path  exists,  the  iteration  can  stop.  The  minima  found  for  each 
node  will  be  the  minimum  fuel  consumed  to  get  from  that  node  to 
Node  2, 
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INTCbFR  TTPL  ST  .ACNG.T  NO.  II)  ISP.  ILFNG.  IOSPD.SS1  ,SS2,SSPr>TH 
TNUtFR  LFNGN. TYPIST 
INUbTR  TYPMJM 

iMir.CR  asurvi .ArAj&.rGTYPr 

pipension  crspd < 4 i .st  cfngi  4 > .sf  ccf  <r i . totsfc (4 i .sfcgai  «r t 
rrwrfrsrnrc  ttputil  m .titirt i <i i .TNniTRnrTVR Awcn  47 — 

L'  I PENSION  ruf  LR2  ( 4 ) .ENG (4  I , SSPKOB ( ft . 1 O I . SSI  RUD<  B > 

ri»rNRinN  tnradcm i .mcytoncr i 

CnPMGN/CHAH/lTUR.fU AP.llTOl ,LRAf .SSPMfiD. 

1 TICK .LSClD.FUElCP.CARGCP.TOWnSP. 

2 sur4  i v .hpimst  .hppton.hptnkt  .coSPn.FNr.. sfct  nr .srrrF . totsfc , sfcgai 

3 HPUT  TL  • FUFT7TT  ,FUFI.  R2  .FTJDUR  . R ANGF  . PflTTDN.TNRAn  • ’SSPDTB 
CPPPON/CSSPHh/SSPROu 

DIPFNSinN  TYFLSTI9) 

DT  PC  NS  I ON  CRFNP(e.lO) 

TATA  CRFNP/ 

1 •hYUR * . 'OFOI • , •L-SU* . ’UPT R • . 'GFD  •.•FOIL,.•  •••  *. 

r nrYTnr»-,  *nrpTT,’i.-soT^',TjT-BC. pj.  .TrRCTT.TroG  *7 . — - 

3 *A1R  • . »CUSH* . • ION  ’ . • VtHI • , •Clf-*  . • 10b*.*  P/L*.*  *. 

4 ’AIR  ’ . ’CUSH* , * ION  *.* VCHI *.* CLF- *. 'HIGH *, * P/L*.*  *. 

5 'SURr'.'ACT  •.•FFFt’.’CT  S * « • h IP  •••  '.*  •••  •. 

6 'PLAN* . ' TNG  ’.'CRAF'.'T  *,'  •.•  •••  ».«  *. 

7 *CATA* . ’PARA* , *N  •, 

»■  'SUAT'mr ’V* T » * Y,-r  - -»  -ryt T-p r, 

9 'HYBR'.'ID  V*.*ESSE*.*l  •••  •••  •••  •. 

1 *CONV* .•FNTI* .'ONAL* .*  CRA*.»F7  *.»  *.’  «.»  ’/ 

OI PC  NS  ION  CGCRNP ( 2 » 1 2 1 

OATA  CGCRNW/*RRB  * .*  *.»PwB  *.*32  « , *UTB  *.«41  ». 

I'PLB  • . • 44  *.'PLB  *.*52  *.'ANB  *.'95  '.'ANB  *.  *63  •• 

I » UPH  -Y  ■ *87  P95  ~ T . rHWrr»7',7H)  'r. 

1 • pPE  C • . *270  * . *PHEC • . *378  •/ 

DIMENSION  ENGNAR ( 2 ) 

DATA  FN6NAP/  * < GT  ) * * • I f)E  I * / 

DIMENSION  CNGNH(3,2> 

DATA  FNGNP/ 


•l  * 
* CRA’ 


nnnni 550 
nonoiSbO 
00001570 
00001580 
00001590 

onooiboo 

nnooibio 

00000010 

00000020 

00000030 

U0000040 

00000050 

00000360 

00000070 

ooooooao 

00000090 

00000100 

00000110 

00000120 

nnoooiso 

00000140 

00000150 

OOOOOlbO 

00000170 

oonooieo 

00000190 

00000200 

00000210 

00000220 

00000230 

00000240 

00000250 

00000280 

00000270 

00000280 

00000290 

00000300 

00000310 

.00000320 

00000330 

00000340 

00000350 

00000360 

00000370 

00000380 

00000390 

00000400 

00000410 

00000420 

00000430 

00000440 

000110950 

00000460 

00000470 

00000480 

00000490 

00000500 

"000005TD 

00000520 

00000530 

00000540 

00000550 

00000560 


1 • GAS  • , MUHB'  . • INf 
9 •DIES'. »fl  •/ 

5.*™.  TtPLST/10»U»au«aX.80.40.5Q»fc0«70/  

C 

ir(TrpE.Eo.iO)TyPNuMi) 

IFCTYPr.EQ.il )TYPNUM=9 
iriTYPr.EQ.?0)TYPNUMij 
IF(TrPE.EQ.?llTTPNUM=4 

int  ypr.co . so  > typndm=5 

IF (TYPE .EQ.40  )TYPNUM=6 
IF(TYpr.EQ.50ITYPNUM=7 
iriTYPE.EQ.SOlTYPNUMR 
IF(TYPr.EQ.70)  T YPNUM=9 
IT (TYPE .EQ.80  ) TYPNUM:) 0 

1FCTYPE.6F .lOOCGOTC  5001 
C 

C FIND  DISCRETE  SC  A STATE  PROBAHIl I TY  DISTRIBUTION 
C 

DO  6999  SS1:9.6 

- SS2:STrr-T 

SSPHbDISSl  >:.5»SSPHbblSSl.SSPUTH)*.5«SSPROHSS?.SSP(jTH) 
6999  CONTINUF 

SSPRUDC 1 )=0.5*SSPR0u( 1 . SSPDTB) 

c 

E COMPUTE  CHARACTERISTICS  COR  HPWC 

c 

IFILENC.EO.O. ) LENGztl TNG ( TYPE .DlsPt 
IF (UlbP.EU.G. 1 OISP=»DISH( type .LFNG i 
LTC0=1LTCB(TYPE ,LENb) 

HC A¥~t FNb/L  top 

rTOE  = *DYOl  I TYPE  .LEND  ) 

DR  AF  =PTOL  aLI  N(. 
rrCK=fCFCK(TYPE.LCNG.Pr AM) 

USILMSUSFLI  ITYPE.DISPI 
FCiELCPsFLFRAC»USEir 
CAROL P=  ( 1-FuF  HAC  I *loU  D 

TrTQDSP:«TrWPSITYPE,niSP) 

SUR V l V = SSUH  V I l TYPE .cl  AG) 

ISURVV=SURVIV  ♦ 0.5u01 
HPBINSslHPfi  IN  (TYPE  .UlSP) 

HPINST: IDSPFED/SBSSPf (TYPE ) )*»3»HPPTNS 
HPPTOMtiP  INST /LISP 
Cn  9001  RATF  = I .0 
E NO  IRATE):  St  Nb  (TYPE 'RATE) 

Ck SPO ( R ATE ) :*C WSPD ( TYPr. RATE .DSPFFD) 

FClbSPsCMSPr (RATE)/USPrtU 
FCTOSPiCRSPl  (RATE )/Sf  SSPDITYPr ) 

HPt  CT(J  = SHPFCT(  TYPE 'RATE  .FCTl  SP.FCTbSP  ) 

7FTRATE.EI7.1.  nR.RATT'i  FQ*?)PPUTIl  TRATE)=HPFCT(IA  HP  INST 
IF  ( RA  TE  .CQ.3.0R.RATE.F0.4  IHPUTIL  IRATE  ) =MPFC  THMHPPINS 
SrcENGIRATE  IsSSFCEME  NO  (RATE  ) .IIP  INST  ) 

SFCU  (RATE  ) = SSf  CCF  (ENG  (RATE  ) .liPFCTUI 
TOTSEdRATrisSF  CENG  (RATE  l»SECCF  (RATr  ) 

SrCbAl (RATE )=TOTSFClPATE )• 335./ 9940. 
rUELfrrrRATE  1-PHPUTIl  (RBTEIASrCGALIRATr  I 
FHt LR? ( R ATE )=FULLRT( RATE )/CkSPC(RaTF ) 

ENGUMRATr  ) sFDELCP/ I FuELRT  I R ATI  )/335. ) 

RANbt  (RATF  ) =E  NDEIR  ( R«Tc  )»CkSPD(RATF  I 
TWBDTR  ATE  IitSTNRADI  TYPE  »CUSPD  (RATF)))/3. 

MOT  ION  (RATT  inAkTAVCSSPKBCi.TYPE  ,DlSP.RATE  ) 


00000570 
00000560 
00000590 
0 67)  fl  06  67) 
00000610 
00000690 
00000630 
00000640 
00000650 
00606660 
00000670 
00000660 
00000690 
00000700 
00000710 
OO6O0790 
00000730 
00000760 
00000750 
00000760 
00000770 
OOOOOTBO 
00000790 
00000800 
00000810 
00000890 
00000830 

onnooBuo 

00000850 

00000860 

00000870 

00000880 

00000890 

0000090G 

00000910 

00000990 

00000930 

00000940 

00000950 

00000960 

00000970 

00000980 

00000990 

00001000 

00001010 

00001090 

00001030 

00001040 

00001050 

00001060 

00001070 

nonnioBo 

60001090 

00001100 

00001110 

00001170 

00001130 

on  non 4o 

00001150 

00001160 

00001170 

00001180 

00001190 


2001  CONTINLF 

HPTNhT=HPPT0N/C6SPP(l  I 
irmpC.LT.lOU  IGOTQ  1 008 

C GET  CHARACTERISTICS  OF  iXISTING  CUAST  GUARD  CRAFT 

t 

P!  HE  NS  I ON  Al  ENG  ( 12  ) .AdSPI  12  ) . ACSPrF  ( 1 2 I . A)  UF  RA  1 1 7 ) . A|  TORI  12  1 

nTMriisioN  art ap i i?  > . actci.  i 12  i < adraf  i 12  > 

PI  PE  NS  I ON  APE  CM  12  > . APSELM1P)  .AFuri  C I 1 7 > , AC ARGC I 1 7 ) 

rT'Mri'JRTDTJ  TVTCVDRTl  2 r.TTSWIV  ! Cl 7T.  AnT‘TKS  (T?  > . SpPPTC  ( T?  1 

Cl  PE  NS  I ON  AliPTNK  ( 12  ) t ACt>SP(l(4  1 17  1 . A)  NG  ( 4 , 1 2 ) , AFUF  RT  ( 4 . 1 7 > 

Cl PENSION  ArUrH2(4.1?l  .AtNPbh(4.l7>  .ARANGF  (4.12) 

PIPENS10N  AMPuT  1(4.12) 

PAT  A ALfNG/76.  . 32  . . 4 1 . . 44  . .52  . . 55 . ,*3  . . B2  . . 90  . . 

1210. . 270. .376./ 

rimr  urcsr/n r.r.svrv.  .10.5, 35 .".74 . .47 . . at.  . 1 no . . 1 non; . 

1 1 7b  0 . .3000./ 

CAT  A ACSPET/25. .25. .76 . .14. .11 • .22. .15. ,73.5.70. .17.  . 
119.5,78./ 

TATA  AFuFR  A/  . 373) . .429 . . 556 . . 333 . . 437 , .6 . . 3G4 , .25 , .273 . 
1.F97..913..B29/ 

T«nr  Bl  TUP  73. 7^.7.60.3,0  3.3.30.3, 58. 7, 33. 3. 39. 4.  *5. 

14. 75, b. 17.7.10. 9./ 

DATA  APTAP/P. ,12. ,13. 5, 13. .14. 5. 16. 5. 18. 5. 18. .70. .34.. 

138. . 4?./ 

CAT  A ACTCl  / . 077. .15o. .0  98. .068. .1 15. .091  . .071  . .07  3. .063. 
1.048.  .052.  • llbo/ 

CAT  A "" HCTTA  ( 77.  .5.  ,4.  ,3.  «o.  ,5.  ,4.5,6.  .6,  .10,  ,14.  ,21  % f 
Cata  aceck/5.  .loo.  ,.oo,  ,50.  .loo.  ,7511. , 37*-.  ,700.  .4011. . 

11500. . 7500. .2500.7 

DATA  AUSELU/. 8. 1.75, 4. 5, 3. .8. 8.5. .11. 5, 4. ,5. 5, S3.. 

1345. . 889.7 

DATA  AFllElC/.A.  .54. 1.75,1.  ,3. 14, 3. 70. 3. 20. 5. 67, 8. 96. 23., 

1 3 1 5 • , 0 3 4 , 7 

r AT  A ACAHGC/,5, 1 , ,7. ,7. ,5. , 7 , .8.  » 1., 4., 10, ,30.  ,50./ 

DATA  ATOW'nS/20.  .100.  .150.  .700.  .400.  .340.  .420.  .1000., 

12000. . 10000. .70000. .30000./ 

DATA  ASliRVT/4 ,3.4 ,5,f.  ,4 .5 .6,6.7 ,0,8/ 

CATA  AI'PlNS/3l0..35o..b4C..40u.,400..1(i90..8u0.. 

~ 11600. .7374. ,5000. ,700n. ,36000.7 

CATA  A6PP TO/75. .45. a. 42. 6. 71. b. 11. 4. 37. .19. .73. 8. 

123.2.5. . 3.93.17./ 

CATA  AFPTN8/3.. 1.83. 1.64. 1.54. 1.03, 1.45.1., 7, 1.01, 

11.15. . 79. .70. .4?/ 

DATA  AC.SPU/25. .17. 5. 17. .5. .25. .18. .17. ,5. .76. .10. .17. .5., 
114  . , 17'.  .172  .5.  ,1 1 . . 11 . , II . ,5  . .77  . .10.  .17  . . r . .15.  ,12  . ,1  7.  ,5.  , 


00001200 

00001210 

00001220 

noOofZSu 

00001240 
00001250 
00001260 
00001270 
00001280 
oooniZ9u 
ooooi 30o 
00001310 
00001320 
0 0 0 0 1 3 3 G 
00001340 
00001350 
00001360 
00001370 
nnnni38u 
00001390 
00001400 
00001410 
00001420 
0000143C 
00001440 
00001450 
00001460 
00001470 
00001480 
00001490 
00001500 
00001510 
00001520 

00001530 

00001540 
00001550 
nnnni 56u 
00001570 
00001580 
00001590 

nnooibUo 

00001610 

00001670 

00001630 

|10001b40 

00001650 


123. 5. 17. . 12. .5. .70. .16. .1a. .5. ,16. .14. .12. .5. ,19. 5, 

115. . 17. .5. .78. .16. .17. .5./ 


00001660 
C ll  0 G 1 670 


CATA  AENG/7,2,2»2,7»7,7,2,7.7»7.2,7,7»7»7.7,?,7,7, 

12. 2w. 2. 7. 7. 2. 2. 7. 7. 7. 2. 7. 7. 7. 2, 7. 7. 7. 7. 7.,  .2. 7, 

11 .7,2,7/ 

TATA  A)>PUTT7300  . n?u  . . 50  . . 30  . , 390  . . 1 60  . . 0 0 . , 4 0 . . 64CT.  . 
1774,  ,130.  ,64  . ,400,  ,220.  .220. ,40. ,400. ,400.  ,400,  , 

180. . 1090. .545. .745. .109. .000. .400. .400. .100.. 

11600.  ,640.  .3711.  . 160.  ,7324.  . 1662.  , 58 1 .,  737  ..  50  00  . , 

13000..  70 00.. 500.. 7000.. 3000.. 1750..  700.,  36000.. 

17000. . 7800. .700./ 

rirnr-BrnETrr/75.;io.  .6.  ,3.  .42 .5.70.5.  ip.  .7.  .77,0. 

14  0. ,70.4 .5. .30.8.75. .75. . 10. .73.4 ,73.4 .73 .4 ,1 0. . 77.  . 

150. 8. 74..  5.. 56.. 37.. 37.. 5.. 96. 1.54. 4. 30.. 7. 70. 

1130. . 08.7 .36. .7.5 .1 20. .100 . .00. .47. . 380. .153. . 1 00. . 

167. 9. 3000..  400.. 750.. 150./ 

PA T A AFUEH7/1 . . .57. .50, .60, 1 .70 . 1 .08, 1 . , .4 ,7.8 ,7.7, 


00001680 

00001690 
nnrci70G 
00001710 
011001770 
00001730 
oonni 74u 
00001750 
00001766 
00001770 
room  7ho 
00001790 
00001800 
00001810 
0000182U 


. 


0' 


11.  7, 1.  ,2.2 i.  e,2 . 0.  , 2. ...12.2. 12. 2.  IP,  2. , 7 .5,2.8 , 2.  • I . ■ 

13. 7, 3. 1,3. 1.1. .4. 09. 3. 2. 2. 5.1. *-4. 8. 5,5. 6. 3. .1.5.7. 5. 

17. «■.*.?, 9. 4, 14. 5, 10.2, 6. 4, 12. 5, 107. .25. .20. 6.. 70./ 

Uf.*.  .52. R.l  26. .10.7.1*. cl-. 2. 33.7.45. ,45. ,45.. 

11(15.  .1  1 . *1*..  .35.  lift).  .I*..  i . * . ,25,  , 1 m F . . 2 0 . (■  . 

138.  7 i f * . b . 7(<0  . i * 1 . .jl.6.bl.lil*Cfl.  ,34  1 . 1 4 70.  .507  . . 

11  000.  ,?15.  ,533.  ,ol  A.  , 1300.  ,87.  ,8  55.  .1040.  ,1  74  6./ 

CM  A A R A N G I /100.  .173.  .24C . . I6h.  ,117.  ,175.  .200.  < 

V500.  .?3  7.  ,3C7J.  .390.  .f  44.  ,1*0.  .16C.7U0.  .16*  . .1*95;  ,n 95 . . 4 9* . . 
1525  . ,24  1 • ,300.  *9/1  . .1  54  , a/50.  ,300.  *3  00.  *933  • *4  40  . . 

1 fc  2 4 . .000.  *1  70  0.  ,460  • ,540.  . 1 0 (■  u . , 2 0 0 0 • , *.  2 f 5 « , 

If  KoO.  . 7000.  ,5400.  ,42 Co  . *8000.  ,960(1.  .6500.  .2445.  .10460.  , 
11257.  . .8773./ 

Cr,TYrr?TTFr-TT10 — — 

irM>  = ALFNG(C6TTCr  ) 
crisr:  ArnsprcGTTPE ) 
csPtin=ACSPri (cotyp*  i 

FUFRAT:  AFTJFP  A ( CGTYPE 1 

LTJt,=ALTCP(corrpr  > 


i tol-al  toi  (ti-ru'F  i 
rPAPiArRAP irGTYPF ) 
cecpzaoecmcgtype  i 

U9FLC  = 5\T5n  r (CGTYPD 
FUELCPiAFUEl  CICGTYPt  I 
■ CARXCnrAC  ART  CTCGTYFrT 
TC*l,Sf'=ATO«l  S(C(  TYPE  ) 

ISURVV :ASURVI( CGTYP(  ) 
SIJRVlvMSURVV 
I FKiST: AHPK  MCGTYPE  ) 

* PHTUh=AHPPTQIt(.TYPl  1 

'PPTTTFTSTlFT'Tr.T  f CXTTPTT 

TO  5000  RATf  = 1 .4 

cwspdtr  atfi  = ackspd ikatf* cgtypf  i 

SFCENG ( R ATE  )=999999v. 

SrCCFI RATF 1:9999999. 

TOTSFCIRATF 1:999999 9. 


ENG  I RATE  I:A1  Nu(RAT(  .CGTYPE 1 
PPUTTL (RATF 1 = AHPUT 1 (RATE .CGTYPF 1 
fUELHT (RATE ) = AF  UER  T (RATt .CGTYPE 1 
FVFLF ? TR ATF  1 5AFUFR?  (R  ATE  .CGTYPE  ) 

ENCUK  ( RATF  ) = At(.UUR  (HATE  .CGTYPE  I 

RANGE  I WaI  * I : AK  ANGE  T A A 1 l » CGTtP*  1 

VO  1 I ON  (HATE  ) - »Mi«T«V(SSPRnC.  1YPF .01 *P .RATE  ) 

irtRATt.Kr.?)  GO  TC  5002 

TMRAl(RATF)  = ( »TNR«C ( TYPE .CfcSPD( HATE  It >/3. 
GO  TC  5000 

500?  TMRAL ( RATE  > = 9999999. 


1008  CONTINUE 
C 

t OUTPUT  FURVATTEO  CHARACTERISTICS 
OUTF IL  =8 

iriSP:CISPf .500001 
IlENb:LENG». 500001 
TPSPO  : trSPFT I F . 5 0 0 00 1 

IT (TYPE .LT .100 (WRITE (OUTFIL .3000 ( (CRENM( I . TYPNUV 1.1=1.81 


00001830 
00001840 
00001850 
00001880 
00001870 
OliOIll  68G 
00001690 
00001900 
00001910 
00001920 
00001930 
00001940 
00001950 
00001980 
0000197u 
TIOPOlTflO 
00001790 

onnopooo 
oooopoi  o 
oooo?o?o 
nnooposo 

00002040 

00002050 

00002080 

00002070 

00002080 

00002090 

00007150 

00002110 

00002120 

00002130 

00002140 

00002150 

■ non 02100 

00002170 
00002180 
00002190 
00002200 
00002210 
00002220 
00002230 
00002240 
00002250 
00002260 
00002270 
00007280 
00002282 
C0P02283 
00002290 
00002291 
00002292 
~ 05002310 
00002320 
00002880 
00002681 
0000288? 
00002890 
00007900 
00002910 
00002920 
00002930 
00002940 
00002970 


98 


ni  n r(  n 


3U0  0 FORMAT (• 1 '/15x  . »C  RAFT  ( h A * a r T I ••  I ’ 
1.3(/>.1HX. 'CRAFT  TYPE • .9X .8A4 ) 

IF ( TTPE .or . 1 00  ) wR  I Tl  (OUTFIL  .3029)  I C'-Chnmm  . ( ( lift 
3075  Et)R>»IfT'r»7T5x. 'C  FA  FT  t mil  f M f * 1 
1 . 3) / ) . 18X . 'CRAFT  I (PF  • .9X. 'COAST  Gi.ARP 
WRITE  IOUTT  I L.  302b  I It  ISP.  I UNO 
3026  FGRMATUHX, 'DISPLACEMENT', 4X.I6. IX. MON«'/lwi.'.  * ■ 

1 JOX  .1f.1X.MCFT') 
wRITEIOuTFIl  . 3022  ) IUSPD  .FOFRAC 

3022  " forma  tiirx.'»DrsiGN  st  fed  • .4x . ib.  • knots*/ 

1 IPX,  'FID  L I RACTION'  .3X.F7.2I 
WRITE  (CllTFIl  . 3001  ILLNb.dEAM.DHAF 
3001  FORMAT (4 (/) .13X. 'LENGTH' .22X.Ffc .1.2* . 'Fit  T • / 1 • • . • > • *• 

1 24X , F8 . 1 ,2x  . 'FCFT'/l.XX,  'DRAFT*. 23X.FB.1  . 2 » • 'FFf  * ■ 

WRITE  (CUTFIL  . 30  02  ILTCH.CTOL  .L'ISP 
3002  FORMAT  D13T. 'LTNGTFI/GtAM  RATIO' . 1P» .Ff.? 

1/13X . 'DR AFT /LENGTH  RATIO'. 11X.FS.? 

<*  /I  3X.  MI  I SOLACE  "ENT'  . 1GX  .F8.1 .2*.  'TONS'  I 
WRITE (OUTFIL .3003) ISURVV.TOWOSP.Dl  C» .Cam&CF .F  • i.  •• 

3003  roRMAT  (13XMSURVIVAF)TLITYMI4X.I7.4X.'SE  A STATF' 

1 / 1 3 X . 'TOWS  VESSELS  UF  1 0 • . 1 0 x . F 7 . 0 . • X . • TO),  s • 

2 /13T. 'USTAOLF  OFCK  ART  A ' . I1X  .T7  . n . 3X  . * SOI  ART  MIT' 

4 / 1 3X  . • C AhGO  CAFACI  M'.mx.)  8.1.21, 'TONS' 

5 /l 3X , 'FUEL  CAP AC ITT’ . 15X . F8 . 1 . 2X , ' TONS • 

3 /13X,'USrfUL  PAYLOAD '. IPX .F 8. 1 .2x .' TONS'  I 
WFITE  (OUTFIL. 3004 IKPTNST . HPPTCN.mPTNKT . RANCF (21 .F • 

3000  FORMAT  ( 13X  .' INSTALLED  POwE  R • . 13X  .F  7. 0 . 3X  . 'fOMSI  f a - 

1 ~/T3XT*P0VER  TO  WFTGHT*  . 1 3X  ,Ffl  . I,  ?X  . • WP/TON  • 

2 /13X, 'TRANSPORT  EFFICIENCY'  .9X.FA./.11.  'Ml  / TOA-"> 

1 /I3X.'RANGr  AT  CRUISF  SPETD  ' . 7X  , F 7 . 0 . 31 . •>.  Ai  T I C Ai  *: 

5 /13X,  'ENDURANCE  AT  CRUISL  SPL  E D • . 3 x . F P . 1 . . x . " • ' • 

WRITE  I OUTFIL. 3010) 

3010  FORMAT  ( 3< /)  .2  VX  , • (LANK  Mix, 'CRUISE  Mix. 'MEL 

r jx ;r — m — T/7VT,TSTTE0».3Tr.-TSPrrnr.sT.»  srrrr  mu.- 

WRITE  (OuTFK  .3023)1  LNC.N  AM  ( ENG  ( R ATE  ll,RATF  = l.»l 

3023  FORMAT TTOX. 'ENGINE  TTPE • . 5X . 4 ( MX , A4 ) / I 
WRITE  < OUTFIL .3011 ICwSPD 

‘^011  FORMAT  ri  OX. tCALM  WATTR  SPEFD'.4F8.1.4X. 'KNOTS'  | 

WRITE (OUTFIL. 30 12) TOT SFC.SFCGAL 
•3TTT2  ‘ FORMATTIOX.ssFO  TBFIGFTT'».4X.MFB.2.3X.»IB'/FP-ha  • 

1 /lOX.'SFC  (VOLUME)  • .4X  .4F8.2.3X. 'O.AL/HP-FR' ) 

WRITE (OUTFIL .3013)HPUTIL.FUELRT 
3013  FORMAT ( 10X . 'HP  UTIL1ZFO' .5X.4F8.1.4I . 'HP' 

1 /TOX.'EUFL  CONSUMPTION*  .4F8.1 ,4X.  •O.AL/HR' ) 

WRITE (OUTFIL . 301 4 ) F UEl R2 . E NDUR 
30 IM — I URMAT  ( 10X.  'FUFC  COr,5TTMFTrONM4FB.I  .CX.  'GAl  /Nil  T MT  • 

1 /I 0 X , 'FNDURANCE  (FUEL  )' .4F8.1 .4X. 'HOURS' 1 
~ WRITFl OUTFIL . 301 5 ) RANGE 

3015  FORMAT ( 10X . 'RANGE '. 11X . 4F8. 1 .4X, 'NAUTICAL  MT'I 
WRITEIOUTFIL .3031)  TNRAD. MOTION 
3031  FORMATdOX.  'TURNING  R AO  IUS  • . 2X  . 4FP  . 1 . 4 X . • Y ART  S • 

171  OX.  'CRAFT  MOTION'  .MY.’TTFH.l  .TfX  . 

C 

2771  CONTINUE 
C 

RETURN  ~~ 

END 


TLENG 

VENGTJhEIN'  FEET) 


99 


1 


l : 


FUNCTION  *U  Mil  Tm  .OISP  I 

iNTiorn  Typi 

ir  i t ype  .lu . i o i iiimg  = .4 io.ij isp»4  5. 

TFlTYpr.ro.il  I »Lf  N(.-  . <4 1 <1  »(TTSP«i,0 . 

IT ( TYPE .E0.70  >1UNG  = »*I0ISP. 15. .65. .700. .135. > 

IEtTYPE.EG.7l)  1LENG-1I I CISP. 15.  . 50. . 1 75. ,99. I 
IT! TYPE .EO.SO) JLENGsIt IOISP.90. .100. .180. .176. 1 
If  I T YPt .1  U .4 0 ) 1LENG- . ?89»U I SP.78 .3 

IT  I T YPE  .1  0.10.  OH.  TYPI  .E  0. 7 0 ) *1  ( NG:»t  IDT  SP  . 10.  .*0  . . 185.  .til.  t 

IF  lTYPr.EO.G0  HLrNG  = lIIClSP.H0..85. .1000. .>00. i?00U. .750. . 

13100.  .300. 1 

IF  ( TYlT  .To.  80  . AND.  OISP.  IE  . 1 000  ) »Lf  Nui  1 1 0 . »A10G1  0 ( (1 1 SP  I - 1 70  . 

IF  ITYPr.l0.8  0.ANt).niNP.GT.1000)tlFNi.:31G.**»Al  Of.l  0 1 1)  I SP  1 -859 . ? 
RETURN 
t NO 

C 

C 1C  ISP 

c 

C DISPLACEMENT! IN  TONS  1 

c 

niNFTTrrj  idtspittpe .lenge 

HrAL  llNG 

TNTrcrw  typi 

IT  I TYPE .LO.10l$DISP=ll  I NG-45 . I / . 4 1 H 
ITITYPI  .IC.11)»DISP=II  rNG-60. 1/.414 
IF  I TYPE  .1  Q./O  I!0ISP=SI<IENG.65.  .11.  .131.  .700. 1 

ir  TTYPr  .ro.?i  iJtnsPijiurNG.io.  .11.  .si.  .I7«. i 

It  I TYPE  .1  G.  30  > IDISP?!!  <U  NG.  100.  .90  . . 176.  . 180.  I 

rrirYPr  .ro.«ioi*nrsp=ii  eng-70.  i/.sir 

ir ( TYPF .ro.10.OR.TYPE .1  0.70  I »U1SP:*»ILFNG.40. .10. .155. . 181. ( 

IF (TYPE  .1 O.hO )lDISr=I14 (LI NG.H5. . 150. .POO. , 1000. .?50. ,?000. .300. . 
13500.  I 

IF (TYPE. 10.00. ANO.  I ENG .IE .710. IIOTSP^IO**! II  TNG  * 1 PO . ) /110I 
IE  ( TYPE  .LQ.HO.ANC.lt  NG.GT.P10.  I ID  I SP= 1 0» • I (LENGA859.7I/356.4) 

RF TUhN 
EMU 
C 

c 

C II  TOP 

c 

C LENGTH  TO  PrAW  RATIO 
c 

rilNCTICN  11  TOP  (TYPE  .1  TNG  t 

III  Al  | ENG 

TNTrcrn  TYPE 

II  I 1YPI  .1  0. 1 0 I 11  TOH-4 .0 

ir  I TYPE  .10.11  1 IL  TOP-4 . 1 

IT  ( TYPE  .CO.PO.OK.  TYIT  .EG.Pl  III  TPR:P  . 

IT  I TYPT  .E  0 . 30  1 SLTOEi-3 . 

II  I TYPI  .10.401  IL  T OP-5 . 5 
TF I TTPr.EO.  10  HlTUPiP.1 
IT  (TYPI  .10.  GO  I IL  TOP -3.0 

iriTvrr.i o . 70 1 il  ton  - 3 . 

IF  I TYPE ,E  0.80  1 11 T 0H  = 1 . 

RETURN 

END 

c — — 

c 

C.  10T0L 
c 

C DRAFT  TO  LENGTH  RATIO 

C 


00803610 

008036P0 

00003630 

00003640 

00003650 

00003660 

00003670 

00003680 

00003690 

00003700 

00003710 

00003770 

00003730 

00003740 

00003750 

00003760 

00003770 

00003780 

00003790 

00003800 

00003610 

nono3BPD 

00003830 

00003840 

00003850 

00003860 

00003870 

nnno388o 

00003890 
00003900 
noon  1910 
000039P0 
00003930 
nnoo394o 
00003950 
00003960 
00003970 
00003980 
00003990 
00004000 
00004010 
00004070 
00004030 
00004040 
00004050 
00004060 
00004070 
00004080 
00004090 
00004100 
00004110 
00004170 
00004130 
00004140 
00004150 
00004160 
00004170 
00004180 
00004190 
00004700 
nono4Pio 
00004770 
00004730 


L 


100 


FUNCTION  SDIOl  I 7 YHF »IF No ) 

110004240 

HTAl  IE  NO 

00004250 

INTI  bf  R T V Ml 

n0004<*6l) 

If  nWT.tu.  TO  ituToi  -.20 

0000427U 

IT  (TYPE  .1  0.11  I»MT0L=.I3 

0001.4280 

ir  txtpf  .u.po.ok.tui  .em.?i  >»utoi=o.oi 

00004240 

ir  ITII'F  .1  Q.30  l»DT0L=.05 

00004 JOU 

ir  (Type.Eq.40i»1'Tol  -.t'h 

nnnn<*5io 

if  itypl  .i  g.30i»nm  = .03 

00004320 

in  TrPt.ro. »T)  IPTOi  -.10 

00004330 

iriTYPr.LQ.70UOTOl-.Ofc 

00004340 

W (TTPr.L  G • fcO ) 3PT0L - • 06 

00004350 

HE  TURN 

00004360 

t NO 

00004370 

c 

00004300 

C 

00004390 

C 

*t:rCK 

00004400 

c 

00004410 

c 

us.r»iui  lick  am  a in  souahl  hit 

onoo44?o 

c 

00004430 

FUNt  T ICN  4 01  CM  T YPl  • LF  NO  • k>(  A ► 1 

00004440 

Rt.U  l TRE  " 

00004450 

INTIUIR  TyH 

0 0 004461) 

ir(TYFr.ro.?n. oh. tv pf ,rc.?i >ca=.3o 

00004470 

IT  (TTPt  .10. 10.0h.TYPf  .EG.  11. OK. TYPE  .lu.40  11  A = .25 

00004400 

iriTYPr.r3.T0)t  a=.7‘j 

00004490 

IF  (TYPE.EQ.50lDA=.4U 

00004300 

■ TriTYPr.r5%fcTrrtiA=.!iTi  ' 

00004510 

ir (TYPE .E0.70 )LA=.3u 

00004320 

iriTYPE.ro.  80IDA=.?r. 

00004330 

»PECK=(LENG*UI  AM)»0(1 

00004340 

RFTURN 

00004530 

END 

00004560 

c 

00004570 

C 

000043RC 

c 

tuscir 

00004590 

L 

00004600 

c 

TOTAL  USEFUL  USriOAO  ITUNv) 

00004610 

c 

00004620 

rUNtrtON  1LT5EI C fTYPt  .PTSP1 

00004630 

INTEGER  TYPf 

00004640 

iriTYPF.EO.10.  HUSTlC  = *1  ID  t SP  . 20  . , 6 . . 400  . . 1 ??  . 1 

00004650 

IF  ( TTPt  .EG.  1 1.  1 *(/S»  LU=»I  (E) ISP.  50.  . IP.  .331.  . 9fl . ) 

00004660 

' 

iriTYPr  .Eo.?o.>*usrLC:**(insp.i4.  ,f,.  ,?oo.  .fcfl. ) 

00004670 

IF ( TYPE .EO.? 1 . )»USEcLr»llCFSP.?0. .A. .?00. .88. ) 

00004600 

~ TFI  ITPl  .ro;3EVJTD5TTr:T*TrrSn<)I).  , 35 . .TRO . .70 . I 

00004690 

ir  1 TYPE  .EQ.40.  )*USI  LP=.323»[.'IM  -7.5 

00004700 

TF ITYPE.EO.no. l*USrLC=**C LISP. ?0.. A.. 200., 60.) 

00004710 

ir 1 TYPE.! 0.60. HUSELDs** ID  ISP. 700. ,200. .4250. .1250. > 

00004720 

IF! TYPE .tO.70. ) »USriC= »t I D I SP . 40 . .1?. ,400. .100. ) 

00004730 

IF  ( TYPE  .EO.fcO.  I*USEL['  = »»LGLG(II1SP,3.5. 1 . , 3000.  .1000.  ) 

00004740 

R!  TURN 

00004750 

END 

00004760 

c 

00004770 

c 

00004700 

c 

IPPBIN 

00004790 

c 

00004800 

X" 

InSUiliI)  hASi  UukNIfOWLW 

onnoAHTO 

c 

(FOR  A CRAFT  Ml  TH  DESIGN  SPIFOiRASE  SPEFni 

00004820 

c 

00004830 

FUNCTION  SHPBIMTYHL.rlSP) 

00004840 

INTFGFR  TYPr 

OO004850 

IF  (TYPE  .(0.101 8HPF1 I H = *»(D1SP.35..?T*'0..300. .20000.1 

00004860 

101 


n n 


IF  ( T Il't  .E  ...  11  ) *nl  ■>  J . /(J  . < I bill. . • 2*  C . . 1 8 000  . ) 

IT  ( T I r F , LC,2L  I t'.l  91  = 1 3 ( : I S»  .6  . • l57u  . . 8 0 . . I 60  6.  I 

ir  t nt  r a 1 1 tM'iui  -i* dust  .26. .2500. . i*o. , i 7000. i 

iriTit  r.rc.  *.  o > imF'ci  .=  »t  icim  . j.  «9ui;n. . 1 «u.  . ion  or.  > 

IF  ( I III  .t U.80  liME'l  I«:*J  U)1  SF  .31  . .301.(1  . . 1 *5.  • 18500.  I 
If  < Tl>T  .1  M.50  I %>•!■'<  I -HI.  I ‘-<  <f.t.  .3800.  . 78  . . 3*00.  t 

IF  ( Till  .ru.  70  lll.l'l  !>.  = »»  (tJISI'i^!  . . 76  2.  .200.  • < 88  5.  I 

if  1 1 ii  c .is.e  J i n<i  i t . = >»««!  im>  .200. ./non.. u.oo. .6800. .8000 

U26CHJ.  t 

TF  ( TYFT  . CfS . » 0 > fT>rrii.:  1 0 • ♦ < . . c 9*  AL  (If,  1 0 

kpim  i t 

HrToM 

F'n 

c 

i 

C WirpvT  " • 

C 

C SU'VIVAI  II  ITT 
L 

TUKCT  ICN  JSHPV  I ( TYI’l  .Lrr.G  I 
IMTfGEN  T Yt'F 

nmc  ttwc" 

ssum=3.o 

IT  I TYPE .rc.PO.DR.TTFF  .1  i . 21 15SLiR  = ?.0 
IT  ( T Yt'F  ,L(.  .‘  0 ISSlnFiJ.* 
ir  t Trrr.ro. fo i ssur =** . n 
s8gmvi  = .o?*i  i no+'-M  n 

TrTS5rTTVT.rT.7.TSSWVTi:7. 

RF TCHN 

rvr 

r. 

I 

L JFflG 

C I NT  I NT  T Y IT 
C 

INTEGER  FdNcTIUh  »tl.(,  ( I YPl  .RA  II  I 

IMTFGFR  TTrT  .RATE.  ALL  TSL  .ALLOT. GT3PSI  .r.TinSl 

0 1 8(  ORION  ALLPSL  (4  ) . Al  LGl  ( 4 I .GT3I1SL  I 8 I ,GT1(  SI  ( 8 1 

fata  avrrst 7?. 2.2.2/ 

FATA  ALLOT /l . 1.1.1/ 

CATA  F,T  Jt'SL/1  . 1 . 1 ,2/ 

CA  I A GT1USL/1  .2.2.2/ 

C 

IMTYPE.EQ.U.CR.TYEE  .Eu.bO 

1 .'OHTTTTT  ;TCTTO ) 3 TIT,  r ALLPSL  I II  AT  FI  ~ 

IF(  TYPE  .E.U.20.0R  . TYPE  . E w • 2 1 .CH  . T YE'E  .FQ.60.rM.TYPr.Eb.301 
UENGsALIGTIPATE  ) 

IF  ( TYPE  .TO.  lU.UII.TYIT.Lti.40  >»(  Nr.sGTJnSl  ( 8 A T F 1 
. IF  (TTPF.ro  .801  JENG^GTl  IISL  I RATE  1 

HTTUNN 

L 

C 

C 

C JHST5PP 
C 

x iinsr  Trrrr — 

tUSLP  ECU  HAST  CURVES  I CM  8 P I N S 1 .ACCFL  .PRAKG.A  TIIHM 
FUNCTION  SHSSPD ( T YPL ) 

integer  ttpf 

IF  (TYPE  .C0.10 l»nSSPU*50. 


00008670 
111100867  1 
00008690 
0 >0(18900 


00008910 
00000*20 

00008930  I 


0(008980 


000089*10 


(10008980 

00008970 


0110(19  98  0 


00008990 

ooo 09000 
ni.rof.oio 
nnnn5020 
000(1  *>U30 
00009080 
00009050 
onnnsOGO 

0000507U 

00005080 

00005090 

oonosioo 

0000511 0 
00005120 
00005130 
nnoo5i90 
OOT0515Q 
00005160 
00005170 
00005180 
00005190 
00005200 
000(1521  J 
00005220 
00005230 
00005280 
00005250 
00005260 
00005270 
00005280 
00005290 
00005300 
00005310 
00005320 
00005330 
00005380 
00005350 
00005360 
00005370 
0n005380 

00005390 

00005800 

00005810 

00005820 

00005830 

1)0005880 

00005850 

00005860 

00005870 

00005880 

00005890 


L 


10 


n o n n o o 


00005500 

oooc55iv 

00005520 

oooosSSO 

00005540 

00005550 

nooo5569 

00005570 

00005580 

00005590 

00005600 

00005610 

00005620 

00005630 

00005640 

00005650 

00005660 

00005670 

00005600 

00005690 

00005700 

00005710 

00005720 

00005730 

00005740 

00005750 

00005760 

00005770 


IFlTYPE.EQ.30.0R.TYPE.rC.4  0.0f<.TYPE.rQ.50  0OOO5780 

1 .CR.TYPr.EO.7r)irwSPtl=.075»DSPFrn  00005790 

IF  1TYPE  .EO. 20. OH. TYPE  .FU  . 21  1 *i>SPn=  • 85»r>SPf  EP  00005800 

IF1TYPF.E0. FOUCWSPb=. 60* nSPEEO  00005810 

IF  I TYPE  .E0.80  l»CWSPl=.5»0SPl  EO  00005820 

RTTOHl1  ' ~ 00005830 

E riD  00005840 

C 00005850 

C 00005860 

C 00005870 

C 00005880 

c rrowns  oono5B9o 

C 00005900 

C TOW  riSPLACt*rNT  CAPABILITY  IN  TONS  00005910 

C 00005920 

FUNCTION  tTCWnSITYPI .niSP)  00005930 

INTEOEH  TYPf  00005940 

- TTlTr 00005950 

IF ( TYPE .EO.20.UR.TY PI .EU.21  If  =2  0 0005960 

IF1TTPE.E0.60IF=5  00005970 

*TOWljS  = F*nISP»(OlStVlOO.  )•  *.3333  000  05980 

RFTURN  00005990 

ENO  00006000 

- 00006D10 

00006020 

JSrCEN  00006030 

00006040 

SPrCIFIC  FUEL  CONSUMPTION  1LBS  PER  HORRFPOWf R POUR  PFR  ENoINF 1 00006050 

00006060 

F tINCTTOV  6SF CFN f FNR V PPT NST 1 - 00006070 

INTEGER  ENG  00006080 

UPINS2=HPINST/2.  00006090 

IF  <ENG.EG.2)$SFCEN=,35  00006100 

TFirNG.FO.l  I*SFCEN=»*3(HPINS2,4  00., .7.4000. ..48. 16000... 40»  00006110 

RETURN  00006120 


1F1  TYPr.fQ.il  ) SBSSPlsuO  • 

IF  1 TYPE .CQ.201 »BSSPc  = 5C. 
iriTYf  E.l Q.21 I »BSSPUs50. 

IFltYPE  «F Q • 30  I suSSpijsp 0 . 
iriTYPF.LC.401 3BSSPLI45. 

IF  1 TYPF  .E  0.50  l »E'SSf'l>»  30  . 

IF  I TYPf  .EQ.b0)»f  SSP'>e20. 
IF1TYPF.CO.70IJHSSPL.S40. 

IT! type .CS.hO I»USSPq=25. 

RtTliRu  • 

ENl. 

c 

L 

C 

c 

c »cwspr 
c 

c CALM  WATER  SPrEP  AT  GOOl.  VISIBILITY 
C 

FUNCTION  JChSrUlTYFl .PATE .OSPf r D 
IMTEGf  R TYPl  .KATL 
IF1RATE  .EO.  1)  tCWSPP-rsPEEIi 
IFlRATr.tO.2K.OTO  2 
iriRATr ,ro.3)»cwspn=i?. 
iriHAU.CQ.4)  »LWSP1)=5. 

RETURN 

2 IF  1 TYPE .LO. 10 )»CwSPB=.85»USPtrU 

IElTTTr.EQ.il  UCWSPPs  .9»DSPEEU 


L 


A 


O O c-»  <J  o o 


r 


1 


END 

C 

C 

r isftcr  

c 

c specific  run  consumption  correction  fat  tor 

c 

FUNCTION  *SECLF(ING.PPFCTU) 

INTEGER  ENG 

lF(CN&.F0.1.AND.UPFClli.GT..5)»SFCrF::-.4*HPECTU*1.4 
IF  (ENG.EU.l  .AND.HPFcTu.GT  . .25.AND.HHFCTU.LE  ..5  I 
1 »SFCCF=-l.b«HPFCTu*2. 

IF « ENG.  EC.  l.ANO.E'PFCTu.LE  . .25MSFC  CF r-3 . 2»HPF C TU+2. 4 
IF(ENG.F0.?)»SFCCF=1. 

HETUHN 

TND 


ilPFCT 

fhaction  of  installed  nuKsFPoi*rp  utili/fr 

r unction  shfflT ( type .pate .tctusp ,f cthsp i 
INTEGEP  TYPE. BATE 
c 
c 

IF (BATE .EO. 1 .OB.BATE . f L . 2 I PC TDSP= 1 00 . *FC TOSP 

“ IrTRATE.rQ.3.DR.BATr;F0.4.0R.R/.Tr.rfJ.O)PCTrSP:inO.»FCTnSP 

c 

IFtTYPE  .NF.10.AND.TYPE  .Nt.ll  >GC.  TO  20 

MPPLt  = »l5(PCTriSP.0.  .5.  .20.  .14.  ,40.  .85.  .75., 100.  .100.  ) 

GOTO  99 

20  IF  ( TYPE  .NE  .i'O.  AMD.  TTPr.NE.  21)00  TO  AO 
IF EFC TOSP.LE .10. )HPPCT=10. 

Ic (PCTCSP.U .AC. .AND. PC TOSP. GT. 10. ) HPPC T i2 . «PC TOSP- 1 0 . 
IFIPCTDSP.LF  .80.  .ANC.PCTDSP.GT.30.  )HPPCT:  .20»PCTOSP444  . 

IF IPCTCSP.GT ,8G. IHPPt  T =?. »PCT0SP-1 00 . 

GOTO  99 

30  IF (TYPE .NE .30 EGO  TO  40 

"■  HPPCT=t»3trrTnsp,o. .10. .80. .60. . ino.  ,100.  i 

GOTO  99 

40  ir(TYPE.Nr.40IGO  TO  50 

IF  I PC  TESP. LF .2u)HPPCTr5. 

iriPCTCSP.LE  .40.  .AND.  PC  TOSP.  GT  .20.  1 hPPC  T = 2 . 7*»PCTnSP-50  • 
IT (PC TOSP. LE  .8  0.  .AM .PC  I OSP . GT ,40. > HPPC T = . 25»PC TOSF *50 . 
IFTPCTCSP."GT.R01WPPi-T:1.5*PCTUSP-60. 

GOTO  99 

50  IF(TYPE.NF.50IG0  TO  tfi 

IF (PCTDSP.LI .10. )HPPIT=.50»PC1DSP«5. 

iriPCTCSP.LF.30..ANL.PCTOSP.GT.10. ) HPPCT =2 . 5»PC TDSP- 1 5 . 

IF IPCTCSP.Lf .1)0.  .AN*.  PC  TDSP.  GT.  SO. I hPPCT = . ?*PCTDSP« 54 . 

iriPCTCSP.GT .80. )HPPCT  = I .5»FCTt  RP-50. 

GOTO  99 

GO  IFITYPE.NE.oOIGO  TO  7P 

PPPCTU»4(Pf  TOSP.  0.  .5.  .30.  . 1?.  . 70.  .4  5.  , 100.  , 100.  I 
GOTO  99 

70  iriTTPE.NF.70)  GO  Tu  BO 

TFIPrmSP.LF.TO.  )HPT;CT  = 5. 

IFtPCTCSP.GT.10. >UPHCTsl.0555b»PCTOS) -5.«5556 
GOTO  99 

bO  CONTINUE 

TFIPtTCSP.lf .20. (HPPCTrlO. 

IF (PCTCRP.LI  .bO • AND • IT  TCSP • G T .20 IUPPC  T = . 25*  PC  TDSPFb . 


00006130 

00006140 

00006150 

00006160 

00006170 

00006180 

00006190 

00006200 

00006210 

00006220 

00006230 

00006240 

00006250 

00006260 

00006270 

00006280 

00006290 

00006300 

00006310 

00006320 

00006330 

00006340 

00006360 

00006360 

00006370 

00006380 

00006390 

00C06400 

00006410 

00006420 

00006430 

00006440 

00006450 

00006460 

00006470 

00006480 

00006490 

OO006500 
00006510 
00006520 
00006530 
00006540 
00006550 
00006560 
00006570 
00006580 
00006590 
00006600 
0000661 0 
00006620 
00006o30 
00006631 
0 0 0 06b4  0 
00006650 
00006660 
00006670 
OOOObbBO 
00006690 
00006700 
00006710 
00006720 
00006730 
00006740 


i 
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orinq  ! - r>  j jo  r,  n|  n q 


IF (PCTCSP.GT.60tHPPLT=2.*PCTDSP-100. 
GOTO  99 

*HPFCT=HPPCT/100. 

Rtl URN 


C STNRAD 


FUNCTION  *TNRAU(TYPE.rwSPU) 

INTEGER  TrPf  .KATE 
TFTTYPT.Tg'.TO)  OMEGA  = 8.  ~ 

IT  (TYPE  .EQ. 20. OR. TYPE  .EG  « 2 1 ) OMEGA  = 2. 

IFITYPF.E0.30)  OMEGA- ="TT5 

IF(  TYPE. CO. 90)  OMCG/i  r 4. 
rrTTYPr.ra.Tl  .OR.TYFT.GE .50  ) OFFGa  = 3. 

1TNR AO  = <1.689*CwSPD>/( (3.14159265/180. > *GMF G A ) 


FINDS  Y VALUE  ON  A STRAIGHT  LINE.  GIVFN  X VALUF  AND  TWO  POINTS 
"OTTTHL  LINE  I ASSUMING'  ETNF~'EXTENO^  ~TNFI N I Tf  LYT 

FUNCTION  W(X. XI. Y1.X2.Y2) 


“TEl  ACTS  TX2-T1  j .CT.  . 0001  ) GOTO  I 
SLOPE  = ( Y2-Y1 )/(X2-Xl) 

TT  TAliSI  l^-M  I ,L  t . .TKniTT  SCOPE  — IT. 
D=  Y 1 - SLOPEaXI 

TfV-SrOPETFY  r B" 

RETURN 

**=<Yl*Y2)/2. 

RETURN 

END 


c -Finos  -T-rsvnE  on  EjRuren-vtne- cf  t e dents-,  “"gtvek  y vaeue 
C AND  THE  3 POINTS 

T nrSSTJWING  TNDS  nr  LINE  EXTEND  IKFTMTFl  Y) 

c 

"FUNCTION  1J3(X.X1.Y1.X2.Y2,X3.Y3) 

C 

1F<X.GT.X2)»»3=»*<X,X2.Y2.X3.Y3> 

neturn 

END 

c 


“C  FTNOS  T VALUE  ON  BROKEN  LINE  OF  9 POINTS,  GIVEN  X VALUE 
C AND  THE  4 POINTS 

~C ”1 JTS5UKTNG  ENOS  OF  LINE  CXTEND  INFTHITFL  Yl 
C 


00006750 
oono6760 
00006770 
00006780 
00006790 
0 0 0 0680  u 
00006810 
00006820 
00006830 
00006840 
00006850 
00006860 
00006870 
00006880 
00006890 
00006900 
00006910 
00006920 
00006930 
00006940 
00006950 
-0fiC0696G 
00006970 
00006960 
00006990 
00007000 
00007010 

o onoTo  tv 

00007030 
00007040 
00007050 
00007060 
0000707U 
•OTmOTOBO 
00007090 
00007100 
00007110 
00007120 
00007130 
00007140 
00007150 
00007160 
00007170 
00007180 
00007190 
- 0 00  072TT0 
00007210 
00007220 
00007230 
00007240 
00007250 
00007760 
00007270 
00007280 
00007290 
00007300 
00007310 
irmT0T32ir 
00007330 
00007340 
00007350 
00007360 
00007370 
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nnnnn  -n  j r.  .pnnrtn^r  , on.-r~r-o 


"I 


i 


r ur.c  mci.  sv.  < x . x l • .*3.  y.i  . »4  . v4  > 

c 

lF<x.lE.X2lll4::sStX.X1  . » 1 .X2. Yi  ) 

Ir  f x.i.'T . X2'.AN(;.  X .Lt  .X X ) » 14  = 11  < X . X2.  V2.  X3.  Y3  ) 

irlx.,T.X3Ml4=$i(x.x.,Y3.X4.Y4) 

Pr  TUKI; 

E M» 

c 

c 

t ~ 
c 

C FINDS  Y VALUE  nr  lROKEN  LINt  OF  5 POINTS,  Givtf  X vAUIL 
0 ANC  Tht  5 Poll  Is 

c (assuming  ends  rr  unc  rx tend  nriMTn»i 

c 

' rilTiCTTCN  13srX.YT.Yl  .X2.Y2.X3.Y3.X4  .Y4.X*r;Y5V 

0 

IFEX.LE.XR)  SS5=SS(  X.X  I . Y1  .X2.Y2) 

IF  < x.l.T  .X2.AND.X.LF  . X3)11S=1$<A.X2.Y2.X3.Y3) 
irtX.FT.TC3.  ANE  .X.LF  . X4  > US: t * m . X3  . f 3 . X4  , Y4 ) 

If  (X.i  T.X4>sl5ssS(X.X4.r4.X!-»Y5> 

— - |<  | I liRN  “ 

cno 


ixe 

rTtitrs  r vffiTir'  or;  erokti;  i Hirer  0 ftjtnts.  f tv etc  tc  vaunts  anic 

THC  LIGPT  POINTS 

FUNCTION  SSP(X,X1»Y1.X2.Y?,X3»Y3.X4.Y4,X5,Y5»Y6»Y6* 

1X7. Y7 , XB. TO  I 

iriX.IF.T?)  118  = liIViXl.YlxX2.Y2l 
IT  t X ,(,T  .X?  .ANIUX  .Lf  .XX  ) lie  I lllx.x2.Y2.x3.Y3l 
TTTT7Trr.Trr.7rrirTxrrr;  ri  stk  r n nr  rrr.T3'.  rv . m 

IFIX.GT.X4.ANI  .X.LF  .XM  lift  = 111  X . X4  , Y4  . X5  . Y *>  1 
IFCX.GT.X5.ANC.X.LE.XF1  118  = 1S(Y.X*,Y5.XE  ,TBI 
IFIX.GT.X6. ANN. X.Lt  .X7)  $18  = 1 1 ( X . X 6 . Y6  > X 7 . Y 7 I 

rrix.GT.x7r  *$8  = smx.x7.y7.xr.ya) 

IlfTuKN 


hlglg 

FINDS  Y VALUE  Of:  A STRA1GPT  LINE  ON  LOG-LOG  PAPFR.GIVFN  X VALUF 
~~ICKtT~7~  POINTS  OH  THC  L II.T~T  ASSUTYTTIG  t~TNF  TTTrNnr  1NFINIICLT) 


00007380 
00007390 
00007400 
06007410 
00007420 
00007430 
00007440 
00007450 
00007480 
00007470 
00007480 
00007490 
00007500 
00007510 
00007520 
00007530 
00007540 
00007550 
00007560 
00007570 
00007580 
~ 00007590 
00007600 
00007610 
00007620 
00007630 
00007P40 
nonn7650 
00007660 
00007670 
00007bB0 
00007690 
00007700 
oomrYTio 
00007720 
00007730 
00007740 
00007750 
00007760 
00007770 
00007780 
00007781 
00007782 
00007783 
00007784 
non o 7785 


rUNCTION  SSI  GIGIX.X1  .Y1  .X2.Y2) 
irtxi.rQ.x2)GtiT0  i 

SLOPE  = ( ALOGC  Y2)-ALCu( Y1 ) ) / I ALOG I X? ) -AL OG ( XI ) ) 


0000778b 

00007790 

nn007b00 

00007810 

00007820 


$ $L  GL  6- 
RTTURN 

SSEGLG  = 
HTTUHN 

EXP(SL(jPE»ALCG(X)  ♦ R> 

CXPI  (ALOGIT1 ) +ALOGIY2 ) I /2.  ) 

TTITIT07B30 

00007840 

00007850 

00007860 

00007870 

00007880 

DTD 

0o0u7B9O 

00007900 

• * ' * * ~ ‘ " 

00007910 

111 

00007920 

RF AO  CURVE  Y VS  X.OR  X VS  Y UFPENUING  UPON  FLAG 


00007940 


1 06 


nnnr|rronrrtoni  j rn  njonin 


CURVE  IS  ft  STRAIGHT  LINE 
FLAG  i 0 MEANS  T VS  * 

rure  = 1 MtAftiTTVS  ~7  ~(NfSXTrvl  SLhPF  >— 
FLAG  s 2 MrANS  X VS  T (POSITIVE  SLOPE! 

FUNCTION  SSS(X0RY.FLAG.X1.Y1.X2.T2) 
~~I*iTf6FR  Flag 

IFIFLAG.EO.O!  SSS=SA(X0Hr,Xl.ri.X?,Y2) 

irm:  &G-.TC  .TT  * *V=4 » ( xOP T .T2  . x2  . Y i . x 1 1 

IFIFLAG.EO.21  SSS=S»(XCHY.Y1.X1.Y2.X?> 

RETURN 

END 


SSS3 

REftO  CURVE  Y VS  X OR  X VS  Y OEPENUING  UPON  FLAG 
CURVE  TS  A RPOKEN  LINE  OF  3 POINTS 

■ '■Ft  AO  "=  IT  WEANS 'T  VS  X 

FLAG  = 1 MEANS  X VS  I (NEGATIVE  SLOPE | 

FLAG  = 2 MFANS  XV ST  (POSITIVE  SLOPF ) 

FUNCTION  SS13(X0RY.FLaG.X1 , Y1 . XP . y2 . X3 . Y3 1 
INTEGER  FLAG 

TFiriAG.TO~.Tn  IS*T  ft"  U3IX0RT.Xl.YT.X7.YS.X3.Y31 
IFIFLftG.EC. I ) SSS3  = SS3(X0RY.Y3.X3.Y2.X2.Y1.X1 I 
IFl FLAG. 10.21  SSS3  = SS3 ( XORY . Y 1 . X 1 . Y? . X2 . Y3 . X3 1 
RETURN 
END 
C 

c 

c mu 
c 

C READ  CURVE  Y Vs  X OR  X VS  Y OFFENDING  UPON  FLAG 
C CURVE  IS  A UROKEN  Lli.r  OF  V POINTS 
t 

C FLAG  = 0 MEANS  Y VS  * 

C FLAG  = I MEANS  X VS  Y (NEGATIVE  SLnPF I 

C FLAG  ~ ? MTANS  X VS  1 (POSITIVE  SLOPE! 

C 

FUNC1 ION  S» A4IX0RY.EL AG. XI. Y1.X2.Y2.X3.Y3.XR.Y4) 
INTEGER  Tl  AG 

IT (FLAG. La. U 1 AAA4  = SS4lX0RY.Xl.Yl.X2.Y2.X3.Y3.X4.Y4) 
iriFLAG.FO.il  SsS4  : SS4 ( xOR Y . Y4 , x4 . Y 3 . X 3 . YP . X? . Y1 . x 1 1 
IT  If  LA(~  .EG.2  1 SSS4  s SS4<X0Hr,Yl.Xl.Y2,X2.Y3.X3.Y4,X4) 
HTTURn 
END 

c * • • 

c 

c 

C ASS5 

t 

L RF  AC  LURVt  Y VS  X PH  X VS  Y UEFENLING  UPON  FLAG 
C CURvr  I«  ft  RRPKFN  LINE  OF  5 POINTS 
L 

C FLAG  5 0 MEANS  Y VS  X 

c T lag  = l MEANS  x VS  Y (NEGATIVE  SLOP!  1 

l TLAG  s 2 MFANS  X VS  Y (POSITIVE  SLOPE  I 

rut.CT  ICn  SAS5I XOHY  .a1,Y1.X?.Y2,x3.Y3.X4.Y4,X5,T5) 


00007950 

00007960 

00007970 

6067)7960 

00007990 

00008000 

00006010 

00008020 

00008030 

00008040 

00008030 

00008060 

00008070 

00008080 

00008090 

OOOO810O 

00008110 

00008120 

00008130 

00006140 

00008150 

00006160 

00008170 

00008180 

00008190 

O00O8200 

00008210 

nnno6220 

00008230 

00008240 

00008250 

00006260 

00008270 

00006260 

00008290 

00006300 

00006310 

00008320 

00008330 

00008340 

00008350 

00008360 

00008370 

00008380 

00008390 

00006400 

00008410 

00008420 

00008430 

00008440 

00008450 

AO60646O 

0000847U 

00008480 

00008490 

00008500 

00008510 

00006320 

00008530 

00006540 

00008550 

00008551 

00008560 
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INTEGER 

FLAG 

IF  (FLAG, 

.LG. 

u> 

SSS9 

IT (FLAG, 

.1  U. 

1 ) 

SAS9 

IF (FLAG, 

.Eg. 

2) 

SSS9 

return 

END 

mt 


FUf.Cl  ION  SSS8(X0RY.FLAG.X1.Y1.X?.Y7.X3,Y3.X4.Y4.X9,Y5.X6.V6, 
lX7.Y7.XH.Yfl) 

INTEGER  Fl  AG 

IF(Flag.eq.(j>  sue  - sse  t xory  . xi . yi  . x? , y?  . x s.  ya.  x«  , Y4 . 
1x9,Y5.xF..Y6.X7.y7,Xo.yB> 

IFIFLAG.EQ.l ) SSS6  = $ SB ( XOH Y . Y fi , X B . Y 7 , X 7 . YG . X h . Y 9 , X 5 . 
lYTT.XA  . Y3.X3.T2.X2.YI . Xl 1 

IFtFLAG.CQ.?)  SSSB  I S SB  ( XOR  Y . Y 1 . X 1 . Y 2 . X ? , Y 3 . X 3 • Y 4 . X4  . 


lY9.X9.Yfi.Xfe.Y7,X7,Yo.Xe> 

RFTuRN 

ENG 


S P T »■  0 S 


SPTPDS  SbPROUT Ilf 


COMPUTES  CRAFT  PAH  AME  TFRS  AND  TASK  PROP aP Tl I T If S OF  SUCCESS 
FOR  A CRAFT 


tc  find  craft  parameters: 


SITDR'OITTTNr  SPTPDS(TTPr .CrSP.LFNG.CSPEED.FUFRAC. 
1 VlSDTD.TOBDTti.OPHl  IB.SSPUTH) 

IMPLICIT  REALtA-7) 

INTEGFH  I.J.K 

INTEGER  TYPE  .ENG. RC..JTPCS 

INTEGER  TYPNUM 


CIMENSION  CFTNAMIB  ) . CR AF T ( fl I . SPEED ( 4 ) .MFULRT  t 4 I 
OATA  CRAFT/B**  •/ 


INTEGFR  IDISP. ILENG. IDSPD. IF ILE . R ATF . I SUKVV . SSI . SS2 
DIMENSION  CBSPm<n  .XT"  CENG  1ST  23FCCTT4 T . TDTSFCT4  ) YSFCG8T  CTT 
DIMENSION  (IPUTILI4)  . FliEL  H T 141  . t NDUH  I 4 » . R ANGE  < 4 I 
DIMENSION  FUELK2 I 4).ENG(4).TNRA014) .M0TI0NI4) 

CIMENSION  CC(19I.OF(19).LS(19I,MNI19),*0(19I . Tt. ( 1 9 ) . IPOS ( 1 9 ) 
DIMENSION  SKI19) 

COMMON/CHAR/LTOB.flEAM.DTOL  .DHAF  .SSPHBD. 

1 DECK  iUSELtr.TTJEL C PYCAPGCP". TOTTOSP, 

2 SURVIV.HPINST .HPPTUN.HPTNKT .ckspd.fng.sfceng.sfccf .tdtsfc.sfcgal 

3 HPUT1L .FUEIRT. FUEL K2.ENDUR.RANGr, MOTION, TNR AD 


C0MMON/PARAM/ID1SP, ICSPC.CFTNAM .SSAvG.SPEFC .MFULRT, 
TT0U5PTT.CC.0r  .ES.MN.TU 

COMMUN/POS/ASST.BORD.MNAC.RTRV .MATT.4E00.Nl BP.SOIU.SESC. 


00008970 

oooossso 

00008990 

nonn#59i 

nnooflboo 

onnosGio 

00008420 

00008430 

onooflb40 

ooooe63o 
onooabbo 
oonoflbTo 
nnonflbeo 
onnoflb9o 
nonce  too 
onoofliio 

IIIIITI i 
00008712 
00008770 
00008730 
OOOOOOl 0 
00000070 
00000030 
00000040 
00000090 

oorooobo 

00000081 

00000080 

00000090 

00000100 

00000110 

00000120 

00000130 

00000140 

00000190 

00000180 

00000170 

00000180 

00000190 

00000200 

00000210 

00000220 

00000230 

00000240 

00000290 

00000280 

00000270 

00000260 

00000290 

00000300 

00000310 

GTTnoo370 

00000330 

00000340 

00000390 

00000360 

00000370 

TTOnOoBOU 

,00000390 

00000400 

00000410 

0V00D420 

00000430 


108 


p 


lS°tO.S»'AT  .TOWS.f  set.  1DM  .HATl  .STGI . TRI'T  . TNST  .RSP1) 
CORMON/CbSPRH/SSPROu 
PIUNSION  GuOil 

~ TJ rsTKsToN  wnaccih  i . JWSpR o < 41 « mnt dr  « <*  i 

DIKtNSION  SU19 1 .Lt.619  1 


DATA  we/.  7 . .b  . .8  . . •> . • 9. 
19«>.  . 1 .0 .99.  . 1 .0 .99.  .99. 


.5. .5. 1.0. 99. 
,99./ 


i 99. .1.0. 1.0. 


CTHENSTOT  "&omt  VT7  V IsTli  ( 5 1 

DIMENSION  XX<9> 

TATA  XX /999s. .9999. .9999. .9999. / 

dimension  on.PiA.iiii 
data  cRfnm/ 


00000990 
00000950 
00000960 
00000970 
0000098U 
00000990 
00000500 
00000510 
0000C5?u 
0000053U 
00000590 
00000550 
0000 0560 
00000570 


1 

•myuh  * • 

• OF  0 I • . •L-Sc*  . * dMI  H • , 

•ern  • 

. 'FOIL  • 

• . • ' . 

00000380 

•nron  nc-^nj' . 'RFac  ' . 

•f  PT» 

. rFNf  1 * 

• . • • • 

00000590 

3 

•Alh  •• 

• rush’ , • I ON  ’.•VENT'. 

•CLE-' 

. • l On  • 

• P/l 

• . * ' « 

noonobou 

R 

•AIR  •. 

•rusv.'.'iON  •••vo-i'. 

' t IF  - • 

. »HTM-  • 

• P/L 

• . • * • 

ooooObiu 

5 

•SUN1  ’ . 

•AC(  • . • E FF  t * , • C T S*  . 

•I  IP  • 

t • 

t , . . , 

00000620 

6 

•PI  AN*  , 

• I NT,  • , 'CR AF  • , • T 

• « 

• • * 

• . • • * 

ononobSo 

7 

•CATA* . 

•MAoA'.'N  •, 

. , 

• • • 

• 

* t • * 9 

0000069 J 

_ 8 

T S w A T 

rj,- ' t , • »t 

. 1 

,1  « 

« 

1 ,1  », 

00000650 

9 

•KTE.R * . 

•ID  V*  . ’ISM.  • , • L • . 

, . 

• • * 

• 

• . * 

00000660 

1 

•CONO1 . 

rrmi* . 'onal'  . • cka  ' , 

•F  T • 

, t t 

• 

* . ' */ 

0000067U 

DIMENSION  C(.U<NM2.  12  ) 

DATA  CGCRNV/'CRi!  •.•  •••Fur,'.  *32  • , ' UT  t> 

l»«Ll)  • . • 9 9 ','RLB  * . * bku  *.'55  •.•ANH 

1TWPR  » .■’B?"  '-,’t.PTT  '.’95  x.'W»f  C'.*P10  •. 
l'hMlt  • . '270  • . 'WMEC • . *378  •/ 

CTAFNRIfjN  FLGNAM<2) 

DATA  » NGfAM/*  itT  ) • • • <DF  1 •/ 
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DIMENSION  SSF'KCDIS.  it 1 


DIMENSION  AVESS110I 

TATA  AVFSS/0. 5. 1.0.1.'. 2. 0.2. 5, 3.0.3. 5. 9. 0.9.  *.5.0/ 


DIMFNS  ION  TCWi  IS(6.b) 

DATA  TObDlS/.b.  1 . .2.5 . 7.  . 10  . .50  . . . 7 . 2 . . 9 . , 1 0 . . JO  . . 1 011 . 

1 1 . DR . .7. ,20. .60. .500..  2.,E«»?O.*6O«»R0.,1OOO.. 

2 10. .20. ,50. .100, toOO. • 10000./ 


L IMt  NS  I ON  VISLISl 3. J) . V/MXVIS ( J ) 
TATA  VISCTS/.9. .1 . ,0. .7, .2. .1. .5. 
LATA  V9XV IS/99999. , ^0 . . 10 ./ 


.2/ 


INTFGFH  T OHDTB  . DPMP  ft  . V I SI  T1  .SM'Oin 
INTEGER  VTSTTP 


DIMENSION  SSPRPPIBI 


_CTFF7:STTIN-CrFR20  TT?)  .rr-FRlon?) 

CATA  CGFH20/15. , 32 . 5 . 90 . 2 , 9999 . ,9999. ,6 J . 9 . 9999 . . 73 . b . 1 30 
19999. .1266.7/ 

DATA  CNF  HI  0/5. 1.9. 1.16. 0.2  0.7. 21. 2.10.6. 27. (*.2  3.6.27. 9. 
170.6,39.9,221 ,9/ 


00000660 
00000690 
00000700 
00000710 
00000720 
00000730 
00000790 
00000750 
R0r007t,o 
00000770 
0000078u 
00000790 
OOOOOHOO 
00000810 
00000820 
00000830 
00000890 
00000630 
00000860 
00000870 
00000880 
00000890 
0000090U 
00000910 
00000920 
00000930 
00000990 
00000991 
,9999.,  00000992 


irTTTPF  .tB  . ro  ) TYPNljMr  1 
IT  I TTPE .10. I 1 )TTPNU„  = 2 
ir(Trrr.to.20iTrPNU6=3 
IF  ( TTCI  .1  (..21  ITTl'Nl  v=9 
IT ITVPC.EQ . 30 1 TYPNUFs* 

IF(TTPt.tO.90)TTPMU-=6 


00000993 
00000999 
00000996 
0flr00950 
00000960 
01,0(10970 
00000980 
0000099U 
00001000 
n n o in  o l o 


J 


1 09 


If  ( TIPI  .1  LA  0 > T - 7 

IM  T Yf  f .1  Q.t-  0 I T YI’f.l  ■ =“ 

If  IhPl  .U.VOHYf'rtl  • - S 
ir(TYcr.rc.hOiTYt>*jL  * = u 
If  ( T > ► t .Of  . 100  ICI-1  Y»  l : T Iff 


1 0 u 


CO  4« nc  H A T f - 1 » ' 
ir<  Ttn  .<W  .10(f)’ 


ref  .o  (f  rtTf  > = 0.( 


4200 

L 

C 

C 

c 
c 
c 

l 

r 
( 


If  (TUI  . 
ir (Tyr r , 
If  c t y i » . 
f OUT  I * If 


of  . tooibf  rr»  n.A it  )=o.o 
cr.icoTOTsrr » p at?  i=n.u 
i»i  . Uiu)srcr*(i  (HAU  i = o.c 


f lhU  I'AI  AMTIHS 


ALL  f • A f\ A v I T f H MHUiAI'l 
a MV  PI  RF  C Al  r L’l  at f t 


rr  qinr:  jrrrsri.19 

CC(JlPCS)  r 1.0 
rrcjirrsi  = l.c 
LSI.bXSl  = 1 . L 
vf'  ( JTPCS  ) = 1.0 
s*  l wires  1 - 1.0 
TVMrrs)':  T.  (T 

com  mr 

COM  IK  I 


ulTlls  St  T I 0UAI  TO  l.u  f *CI  I’T 
i 'l  l Ca 


SCliO 

c 

4b60 

c 
c 
c 
c 
c 


-nvtfTncr  srrrr  nur  nvrrrxr 

ANC  VIM ‘ML  I TUM 


run  frnTr  mv  rxrrcTrr  srA  statfs 


V I SI  LI  ( 1 ) = 
Fun  patf  ir; 


99949. 

l ivnrr 


VTSinil  TTY 


irr TTrr.oT.Ttrtn-oo  tc  moo 

TO  49PP  V1STT1  = 2,0.1 
VV  IS  = VVXVISI  VISTYf'  I 

rcTnsr  = vviS/snssncTTFCi 

RATI  =n 

“T*rtTTTT  r-  inrrrTTTrrr .wATr.o.  .rrTTisr i 
ZMPT  11  = Hf»r  C1U*ShFhlM  TYH  .l  1ST) 

rr  r vi  srrr.r:i.?  )?r;jr  = sr rjc f typi  .?) 
ir  ( VlSTYP.t  f.  . 3 )2tNG  = St  hb  ( T YMC  . 3 ) 
/sretN  = ssrcrfurrub.HPiNST) 

/SFCC.f  = SSf  CLH  ZtNo.ff’tC  111  1 


2SFCGI  = 2TTSI L*335./P24U. 
VTSFUF CVIFTTP)  r 7HFT Tl • ZSFCGL 
491*8  CONTlNLf 

GO  TO  0910 


x — rvZL~n*TrT  rvn-tuvsT  Ptrwro  cpaft  -pvt tmtft  vrsmtrTT 

8900  VISFuriPI  = Cbf  K20  KGTYPE  ) 

VISFLTf 3 1 = CGFR1 0 ( C6TYPC ) 

C 

8910  DO  711  RATf  = 1.4 

CALL  VMAviSSf  Kpr.visris.visrTH.wxvis.TYPi  .niSP. 


norm  020 

00001 J30 
0 0 0 0 1 0 4 0 
00001050 
00001 0*0 
n r n o 1 0 7 o 
oonoiofio 
ornnl  Osu 
o r . o o 1 1 o u 
00001110 
onooi i2u 

00001130 
00001140 
00001150 
onooi lfcu 
00001170 
orroi lflo 

00001190 
OOOul 2l)U 
00001210 
rr.ooi220 
onrai23G 
00001240 
000012*»0 
roroi2bj 
00001270 

0 0 0 0 1 26  w 

00001290 
00001300 
00001310 
00001320 
00001330 
0000  13411 
00001350 
00001 360 
00001370 
00001360 
00001 390 
00001391 
00001392 
00001393 
00001400 
00001410 
00001420 
00001430 
nntroi490 
00001430 
00001460 
00001470 
00001480 
00001490 

00001300 

0000151U 
00001320 
00001530 
00001531 
00001540 
On 001341 
00001542 
00001343 
00001344 
00001550 
00001560 


no 


o u o p J U U 


IRATE  .nSPEEO.FulLRT  . vlSFUE  . VAVG , A VFU« T I 
SPEEDIHATF)  = VAVG 
RrOLRT IRATf I = AVFLhT 

'twnwt  — 


GO  FRACTION  ( USE 0 IN  LIMITING  SEA  STATT  PARAMETER) 
IFILE  = b 

OATH'  G0VIN/T5.  .6;  .5.  .0./  — 

00  *4 T ft  1 RATI  =1  .4 

ir  (DSPEED.LT. 60MIMKATE  ) )G0  To  47ft? 

PCDSPl)  = 1G0M1NIRATE  l/CSPEEIi>»100. 

ssmxzsssppsittpe  .oibPtRATi  .nsprrr  .Pmspu » 

GO  I HATE  >=*CPbSS(SSFi<OP,SSPDTL.bSM)<  ) 

GO  TO  4701 
GO ( RATE  1=0. 

CPNTINLT 


T OR  I RACT  ION  PARAMI  II  R 

CALL  PTrDC  TORt>lS.TO«.L'Tb.  TGRCSP . PTORii  . AVTROS  ) 

TW(IZ)  i PTOWO 

FCTOSP  = AVTRUS/lIISP 

TOASF-r  = **3(FCTCSE .0. .5. . .2.10. .10. .0. > 

GrARiNriTNrGs  parameter  tusrn  in  limiting  sfa  state  parameter) 
ro  9Gpo  jtpos=i.io 

IF (MOIJTPOSl.l 0.44. ) GO  TO  9020 
MTN  = »0<JTP0S> 

TTI  JTPCJS.IE  .7)  RATE  t 4 

iri  JTPCS.GE  .M.ANC.  Jllns.Ll  .121  RATE  = 3 
IF! JTPCS.GE.13.ANr.JTP0S.LE .1»)  RATF  = ? 

IF  I JTPCS.F0.1M)  R A T t : 1 

RVPTLS  r SRPVSMITVPl .HAIE .MTN) 

LAMHCA  r 1100. /DISFI«». 333 

IT  1 TTPE  .(  G.bO  I IAMPlA  i I 1500. /T  ISP  I •»  .333 
RVHTCF  = RVHTLS/LAMut A 
APG  = . H»R  V><T(  F « . 4 

SS  = ?.S»AL0G(ARG) 

SK(wI)'CS)  — tLPf'SS  I jS)-RJc.  iSSF’Uin.SS  ) 

rotrriNur 

MANEUVERARIl  ITT  PARAMETER 

MM1)  = 134ILI  NG.O. .1 . .tO. .1 . .100. . .h. 99999. . ,R) 

MM  PI  = MM  1 ) 

M7U3)  5 VI  U ) ~ 

MM  I 4 ) = MM  1 ) 

VNM  7 ) = mm  i ) 

MM1P)  : »»4 (TNRAniJ) .0. .1. .500. .1 . .1500. , .5.99999. ..5) 

MM14)  : »»4  ITNRATU)  .0.  .1  . .500.  .1  . .1500.  , .5.99999.  ..5) 

StIRVTVAnil  ITT  (USEL  TN  LIMITING  STa  STATE  PARAMETER) 

SUO  = »CPHSS(SSPI.np.SSPDTe.M)RVIV) 

MU  1 I = SllO 
SU(?)  = Sl)0 
SL'I  3 I rS'.ll) 


00001570 

00001580 

00001590 

ononiboo 
00001610 
000016PO 
00001630 
0000164U 
011001650 
OOO0166U 
00001670 
00001680 
00001690 
00001700 
00001 71 u 
000017P0 
00001730 
OOO01 740 
00001750 
00001760 
00001 77u 
00001780 
00001 790 
00001800 
momma 
000018PO 
00001830 
00001840 
00001650 
00P0186O 
00001870 
00001680 
0CO01890 
00001900 
00001910 
000019PO 
00001930 
00001940 
00001950 
00001960 
00001970 
00001980 
00001990 
00002000 
nooozoio 
0000P020 
00007030 
0000P040 
00002050 
0000P060 
OOOOP07U 
00002080 
0000P090 
OOOOPIOO 

noonpiio 

onooPlPO 

00P0P130 

0000P140 

0000P150 

OOOOP160 

00002170 

00002180 

00002190 


111 


su(4»=suo 

; ls:  limiting  sea  state  parameter 

1)0  4710  RATI  =1.4 
LLS  ( K ATE  ) =G0 ( KATE  ) 

IE<SU(HATF).LT.GC(R«TE))LLS<RATE>=Sn(RATE) 

*710  CONTINUE 

00  9002  JTP()S  = 1 ,19 

IF  ( jT  PCS .lF  • 7 ) LS(jTT'PS)  = AM  1 N1  ( I LS  ( 4 1 , SK  ( JTPOS  ) 
IE  ( JTPOS. GE  .B.ANO.JT)  OS.LE  .12  ) LS(JTPOS)  = AMINK 
IE(jTPCS.GC.13.AND.oTP0S.LE.ltK  LS(.lTPOS)  =AMINl( 
IE (JTPOS. F0.19>  LSIJTPOS)  = AMINlIL1  S(l).SK(JTPOS 
900?  CONTINUE 


CAKOu  CAPACITY 
CCI17)  = 999. 

OPATT  PAR  AME  Tf  R 

oro=i;-tmPTH(UPtioTB,rTTAn 

Of  ( 1 )=DEO 

DE  ( 2 ) rCF  0 

OF(3)=Of 0 

DF(4)=DF0 

DE  ( 6 I =CE  0 

OF I7)=CF0  ~ 

CE(b)=CFO 

nr(iot=nrn 

cr(ii)=nEo 

DE ( lb ) =0F  0 


: THINT  MEULPT.SPrEr  AND  TDWSPD  AT  F NT)  OF  CHAR ArTTH 1ST  1 
WRITE (6.3041 ) NFULRT 

3041  FORMAT ( 10X . *AvO  FUEL  RATE • .3* .4F8. 1 .4X, •GAL/HR* I 

3FITE(6.3092)  5PFE(r  

304?  FORMAT ( 10X . »AV0  SPE E T • . 7 X . 4F 8 . 1 . 4 X . ' KNOT S • > 
«RITE(6.3043)  TOWSPD 

3043  FORMAT ( 10X . 'TOW  SPELT •. 13X 7X 1 X ,F6 . 1 , feX , 
1 1 KNOTS ' ) 


PRINT  PARAMETER  VALUES  (OR  MASTER  TASKS 


K31.SK 

KPl.SK 


(JTPOS) 

(JTPOS) 


00002200 
00002210 
00002220 
00002230 
00002240 
00002250 
00002260 
00002270 
00002280 
00002290 
100002300 
100002310 
00002320 
00002330 
00002340 
00002350 
00002360 
00002370 
00002380 
00002390 
00002400 
0000791  0 
00002420 
00002430 
00002440 
00002450 
00002460 
00002470 
00002480 
00002490 
00002500 
00002510 
00002520 
00002530 
00002540 
00002550 
00002560 
00002570 
00002580 
00002590 
00002600 
00002610 
00002620 
00002630 
00002640 
00(107650 
00002660 


C 

00002670 

IFITTPE.GF. 100)00  Tu  4792 

00002680 

DO  4791  1=1.8 

00002690 

CTTNAMI  I )=CHFNM( I ,T  TPNUM ) 

00002700 

"979T  cnriTimn-  — 

00002710 

GO  TO  4795 

00002720 

4792  DO  4793  1=1.8 

00002730 

CTTNAMI I ) = CHAF  T ( I I 

00002740 

4793  CONTINUE 

00002750 

CFT NAM  1 1 ) sCGCRNM ( 1 . LGT TPE ) 

00002760 

CFTNTr*T7Td  CGCFNWT  71 CGTTPE3  1 

tnnnrpnmr 

4 795  SSAVG  = AVESS(SSPDTR) 

00002780 

IPISP=DISP+. 500001 

00002790 

ILENG=LFNG+. 500001 

00002800 

irSPU=USPEEDT .500001 

00(102810 

IF  ILL  =6 

00002860 

11 


IF  (TYPE  .LT.  100  >WRITL  ( IF  1LE  .R901  > (FR4  NW(  I .1  TPNu"  t . I - 4 
R401  rORM/.T  ( • 1 '/l  0*  . 12X  . 'C  RAFT  PARAM4TFR  a'/ 

1 //llx. llx.  'CRAFT  TYPE ' .5X.WARI 

TTTtypf  .6E  .100  >WnT  < IFTLTTRsSftTfci.CRNwi  I .cnYipi  l . I = i .? 
RS3E,  FORMAT (' 1 ' /10X , 12X  . 'C  RAFT  P A R A M f Tl  hs*/ 
1//V1X7T1X.  'CRAFT  TYPE • .5X. 'COAST  NUARO  *.?a»i 
WRITE  ( IF  ILF  .RY37JIPlSP.UfM0.10SPD.FIIE  HAr 

ri37  Format  i ll x . i lx.  'DispL  acEme'nI  • . is.?x  . moms*/ 

3 11X .11X.  *LF  NGTH • <6X  < 16  .?X . *FEFT*/ 

T TlXTnx-.  'DFSIGEj  STTFV*  7 TO.  2TV*  Mints  • / 

3 llx . 1 1 X • 'FUEL  FRACTION' .f b.?/ » 
wRITf ( TfIlE . RS45TV l SATH .TOSETh .PPhDIB • SSPOTP  • A »1  > . • 

R4R5  FORMAT  ( llx  . 1 lx  .RX  . • vISIHIl  I TY  DISTRIBUTION  ML . ' • 1 ? - 
2 1IX.11X.4X. 'TO.  C ISTR IHDTTON  NO.'.l./ 

2 1 IX  . 11X ,RX , 'uE PTP  DISTR 1 BUY  ION  NO.'.l?/ 


R 11X.11X.RX. • (AVERAGE  St  A STATES'. F3.1.'t't 

WRITE  ( IFIir.5001 ) 

01  FORMAT  t //1RX  . 'TASK  • .2X  . 'CARGO'  . IX  . 'I1HAI  T'. IX, 'MAM 

1 ’SC A* ,3X. 'T0»'/14X. 'FOCr • .2X, »f PrTY • . 1*X . 'ST ATf •/-./■ . 

2 'CC'.RX.'DF  '.RX.'Mi.'.RX.'LS'.RX.'T.'l 

WRITE ( IF  ILF .500* ) 

500?  FORMATE //lOX  . *DN  SCEtJF:') 

WRITE ( IF  ILF . 5003 )DF 1 1 ) ,MN( 1 ) .LSI  1 1 
5003  FORMAT! 1RX.  • ASST ’ . 3X , 1 X 3X . 3 1 FR .?. ?X  >. 1 1 3 - 
WRITE  ( IF  II  E .50  06  ) I'l  (?)  ,MN(2  ) .LS(?  I 
50 (TC  FORMAT  IT RY , 'FORf.  ’ .XT,  1Y  P’  --T  . TS  . 3 (?■*.?.?«  ) . 1 x . • 

WRIT)  I IF  II  £ .5005)01 (3).MN(3).LS(S) 

5005  FORMAT C1RX. *MNAC • .3X ,1 X. • — • . 3X .3lFw.?.?X ), 1 X ;x . •» 
1IVITIFS* » 

WRITE ITriLF .50 07) OF (R) .MN(R ) .LS(R I 
5007  FORMAT ( 1RX . 'RTRV* .3 A. 1 X. .3X ,3(Fr.?.?» I . lx . • — • . i x . ’• 

50  OR  FORMAT  (1RX. 'WAIT*. 3a,  3 (IX.'  — ' ,5*1  ,tR.?.5>.'-' I ' ' 
WRITFtTFILE ,5008 ) DF (6) , L S ( 6 ) 

50 OP  TORMAT ( 1RX. • wF UO '. 3a, ?(1X.'--',3X. Fa. ?.?ii.|i. 

icirr  i drtft') 

WRITf  ( IF  ILL"  .5009)  OF  ( 7 I ,MN(  7 I .LSI7) 

“5004  FORWTVTn,rxT»KrrCT”.3X.lX,  3X  .3(rR. 2. ?X)  . l»  'I  . • 

1FNT  b.  POSITION*  ) 

C 

WRITE  ( IF  UE  .5010  ) 

5010  FORMATr/lOX.’RErUCEC  SPEED : ' ) 

WRITE  < ir  HE.  501 3)  OF  (6)  .LS(fl) 

■ ‘ 50T3  FORMA  T ( T5T.  ’ SHTlrTYT.  7 (1  X~.  .1Y.7I.F4.7.;  *1 .11. 

10R  DISTRESS!  0 DMT*  ) 

WRITE  ( IF II  r . 50 1?  )LS  ( S ) 

501?  FORMAT  ( 1RX  . »SE  SC'  . 3X  ,3(  IX  . • — • ,3X  i .4  R . ? . JX  . . J!  . ’Si  . 

WRITE  ( IFUF.5015)DF(10  ) .LSI  10  ) 

5015  FORMAT ( 1RX . 'SPAT • ,3x ,?( lx  3x  .FH.2./X  1 , 1 1 I . • . . 


WRITE(IF1LE.501R)0F(11  I.LSIU) 

5014  rORMATdHX,  ’SPF  0 • ,3X, ?(1X.'--'.3X.F». ?.?*). IX. ’--'.Ax.'si/* 
1PE0PLF • I 

~ " WRITF!  IF  ILC.  SOU  IMN't  1?  ) .LS(1?  ) .TWi  I?  I 
5011  TORMAT (1RX, 'TOWS'. 3A.?(1X.'--'. 3X1.  4(FR.?., II. M «•  'I 

WRlTE.ltFILC.SUl6) 

5016  FORMATC/IOX.'FRUISF  SPFEO:') 

WRITE  ( IF  I i t .5030>LS(U> 

5030  F0RMAT(I4X,’ESCT’.3*.3(lX.'--’.3X).F4.?.3l.’--’  .’i.'HKA" 
WR1TI  I I F 1 1 E .5017)MN(1r).lS(1R) 


1 1 3 


I 


soi  7 r ormat ( i mx ,•  ii.i.t  •. 3»  .?i  i x xx ),? ifm.p.px  i . i x ,3x  ,•  ioe nt if  Yonnu3960 

l • » oooosmni 

»KITl(IrUr.5ol8)LSI16>  00003*470 

57)7  8 rPRPAT  MMX  . TaTL  < ,3X  ,7I1«,  , 7X  I .F9.P.3X  , • ,3X ,’PaTROI  • ) 00003*480 

«RIU  ( (I  II  I . 1 (jlMHil  ( 1,.  ) , LSI  It.  I 00003*490 

•SO  1 •»  FORMAT  ( 14»  , • STC.T  • . 3a  .?( 1 x . • .3x  .F9.2.2X  I , lx  , • .3*.  •SEARCH  FOR  01)0(13500 

ITAKGIT’I  00003501 

WRITE  (TF*  UC ,5i,?l  ICC  1 17  ) ,LS(  17  I 0000351 0 

SOP  t r ORMa  7 < I 8 x . >7  A I 7*t*At#**ti,t.,X*«'n)(t'*-'»37)tf,(#PtT7i,*"fi3Xi*  TRAI’SF’ 000035?  0 


TOOTH  0110033?  1 

»«1  rt  ( If  II  ( . ‘mPO  IL  9 < 141 ) 000  03530 

50?P  rORMATf  19X  . ’TRST«  .3X,3(  IX.  ,7X  I .F  *4  .?.  IX  3X  , • TRANSIT  • 1 00003590 

00003550 

hRiTr  ( irnr.50??i  00003500 

sop?  formam/iox, ’flank  sprru:’!  00003570 

.-wm  nrri  r .5c?3i  i:,ri9r  - oooo35nn 

SOP 3 f ORMAT  ( | 9 x , •RSF'O*  . 3x  . 3(  1 X.  - • , 3X  I .F  9 .?.  3X  , • . 3X.  ’Rf  SPONO’  ) 00003590 

»nm  c tr  n r .9909 ) nnno36oo 

9989  FORMA T ( //I  OX , 00003610 

rrrFNrrtT  upor,  scenario  ir.r...  f ootpr int  anti  we tght  of  r ahgooooo3«>?o 

81*1  00003630 

000773650 

00003660 
00003670 
00003680 

Firm  i ask  pnr,!  Anii ITU  f or  succtss:  00003690 

00003700 

nmro37To 

no  9050  oTPrs=i.i9  00003720 

IT (J7PC5.FQ. 17)  GC  TO  9060  00003730 

TPOS ( JT  POS ) = LCIJTrCSMUF  ( JTPCSI*LS( JTPOSI*MN(JTPOSI  00003790 

I»TW(JTPOS)  00003750 

GO  To  9059  00003760 

i  TTTTj5T.rrfT0Fn  t-iw.  nnnTnrrn) 

» COUlMlf  00003760 

1 CONTINUE  00003790 

00003800 
00003810 
00003820 

put  task  T’KDFnrTt  mrs  nr  SUCCTSS  nooo383o 

00003890 

iriLr=6  00003870 

I r 1 TYPE .LT.lOultaKIHlIFILI  . 60  31  ) ( rRF NM ( 1 , TTPNUM 1,7  = 1. 8)  0000  3900 

rnn»'AT(>i>/5x,8x.,T  ask  probabilities  nr  •.  00003910 

1*S  U C C r s S • 00003920 

tr7?T775Ti*CTT7trT  TTPTH5X.8A9)  n 7)7)039377 

ir  ( TYPE  .Gf  . 100  ) WH  I T(  (IF  IU  . 60  3?  > ( F Gr  RNM  ( I .CGTYPC  1,1  = 1.?)  0 00  0 399  0 

FORMAT  ( M • /5X  .RX , ’T  ASK  PHORAFlIlITlrS  OF  ».  00003950 

1*5  u c c r s s •/  00003960 

1//2X.15X. ’CRAFT  TTPL’.BX.’CCAST  GIIART  ’.2A8)  00003970 

WRITE ( IF I( C .6033) I01SP. ILE  NG.  ) USPn .F LFRAC  000  0 3980 

~ rfTMWgT  f 7X  1~5X  i TlTSPL  ffTTXrXT*  . T6 .7X7  » TTTWR-^7 07)7)7139^0 

3 PX  . 15X  , 'll  NGTH'  .t,X  . 16.  • FELT'/  00009000 

8 ?X,15X,»nrslGN  SFTFr.’  • I6.?X  , ’KNOTS’  / 00009010 

5 ?X,15X,,7U(L  FRALTtON’.F6.?/)  00009020 

WRITE (IF  TIT. 6112) VISOTn.TOWCTn.OPHOTB.SSPOTB.AVCSSISSPnTB)  00009  030 

F0RMAT(?X,15X. MX. ’VISIBILITY  1)1  SYR  1 4.UT  TON  NO. HI?/  00009090 

PXTT5X  .9X  . ’TOW  'PTSTRTFUTTOW  NO.'.l?/ — -7)777)09057) 

2 ?X,15X.9X.*n( PTH  OISTHIhUTlON  NO. *.12/  00009060 

3 PX.15X.9X.  »StA  STATE  OISTR IBIIT  ION  NO. ’.12/  007)09070 

9 PX.15X.9X,  M A VFRAGt  SEA  ST  A TF  = • , F 3 . 1 . • I • ) 00009080 

WRITtUFTl  r .6001  ) 00009090 

l FORMAT ( //18X .’ TASK’ «3X TASK  PROB . • . 9 X , • 7 ASK • / 1 MX . • COnF • . 00009100 


r TC  FITJR  TASK  PHriATllL  IT  1!  s OF  SllCCtSS: 

c 

no  9050  jtpcs=1.19 

IT ( JTPCS.FQ.17)  GO  TC  9060 

TPOS ( JT  POS I = CC(JTPCS)*OF  (J7PCSI*LS(JTPOSI»MN(J7POS) 
1 *TW  ( JTPOS ) 

GO  TC  9059 

*77760  TTTTJ5T,rr7T77’77  "T-* 99V. 

9059  CONTINUE 
9058  CONTINUE 


C P 7TTNT  TASK  -pKTTFArTL  YTTFS  or  SUCCFS'S 
L 

IF ILr=6 

7 T ( T YF'f  .LT.10u)WKITL(IFIL(  .6031  ) (FRFNMI  ) .TTPNUM)  ,1  = 1.8) 

6031  F0RMAT(’1’/5X.0X.’T  ASK  PROBABIl  ITITS  OF 

I’succrss* 

rr77TTT5T5 ’CT77TFT  TTPF  ’ . 5X  . 8A9  ) 

IF ( TTPf .GF  . 100 ) WH I Tt  (IF  IL(  . 60 3? ) ( F Gr RNM I I .CGTYPC I , 1=1 .2  ) 

6032  FORMAT  ( ’1  • /5X.RX,  ’T  ASK  PHOPARILITIrS  OF 

i’s  u c c r s s •/ 

r 1//2X.15X.  ’CRAFT  TTPL’ .5X. ’COAST  GIlARr  ’.2A9) 

WRIT!  ( IF  1 1 C.6033)  I711SP.  ILF  NG.  UlSPO.FUFRAC 

3 PX.15X,*LLNGTH*.bX.I6.*  F t E T • / 

9 2X,15X,’nrsIGN  SfTFr.’  , 16.  ?X  , ’KNOTS’  / 

5 2X,15X,’FUFL  FRALT  (ON*  .F6.2/ ) 

WRITE ( IF Iir . 6112) VTSOTB.TOWCTn.OPMOTB.SSPOTB.AVCSSISSPOTBI 
6112  F0HMAT(?X.15X.9X, ’VISIBILITY  0 1 S T R 1 4.U  T t ON  NO. *.12/ 

2 ?XTt5X.9X.’70»)  PTSTRTT*UTTON-  NO. ’.12/ — 

2 ?X,15X«9X.*0(PTF*  0ISTHIMJT10N  NO. ’.12/ 

3 PX.I5X.9X,  *SFA  STATE  OISTR  IBIIT  ION  NO. ’,12/ 

9 PX . 15X .9X I AVERAGE  SEA  ST ATF  = • , F 3 . 1 . • I • ) 

WRITtUFTl  r .6001  ) 

hOUl  FORMAT ( //18X .’ TASK* .3X TASK  PROB . • . 9 X , • T ASK • /I MX . • COnF • . 


1 *X,*OF  success*  I 

«riti  (lent  « 6U02 ) 
uoo?  format c //i nx , *on  scr n» 


mr m < if  ii  t 

6003  format  c 1 4* . 

»l<  I It  (IF  ILI 
too#.  FORMAT  1 14x  • 
*s in  i ir  n l 

6005  TORVM  I 14X. 

*nm  i n a i 

6Cu7  FORMa  T 1 1 4 x , 
*RITl  ( IFILE 

6004  rsRUAT ( 1 4X, 
WP  I TL  ( If  Ilf 

GOOF  F0RVATI14X. 

*PI  TL  (Kill 
tool  rriRM/wuix, 

L 

wfite  i iFiur 
t>oiO  rcm»ATi/inx 
kunruriiF 
hOl  5 rCHFAT  (14x. 

write  ( ir  n r 

bOi?  roRMAicmx, 
wPin  < ir  n r 

tO 1 s r ORMAT I 14X  . 

wRiTrciFii r 
bO 1 4 F0RMATI14X. 
uRirrciFiir 

bOll  F0RMATI14X, 

c 

worn  c if  iu 

6016  FORMAT! /I OX 
«R  1 U ( IF  II  £ 
b030  rORVATI14X. 

mriu  i ir n i 

F»01  7 rORMATC14X. 

XHITII  IF  III 
6018  TORMAT ( I 4X  * 
«R ITE  l IF  IU 
60 1 R TORMAT 1 14X  * 
*HITE  I IF  Uf 
60 A 1 F0RKATI14X, 
•.PITH  IFILE 
6020  ~rom»imi4xv 
L 

WRITE  ( IFIl  F 

6022  rOHMAT(/10X 
WRITE  (IFILE- 

6023  T ORMA T I 1 4 x , 


PCSI T ION* I 


WRITE  I IF  HE.  .6025) 
6025  T0RMAT(//12X. 

1 • • THIS  IS  THE.  F>. 


r.rn04liu 
00004120 
00004130 
0000m 1 4o 

6003ITPUSI1)  00004150 

asst  * .5*.r b.3.5x , *assi si  • i orocuito 

600b ) TPC.SI2)  00004170 

butt.*  .6a,(  5.3, 6*  , MX  Awn*  > TifiPOWlRj 

6005  I THoS  C 3 ) 0000419J 

Ml,  AC  * ,5A,r5,3,5X,  MONITOR  ACTIVITIES*)  00004200 

6007  ) TF’eSI  4 ) 00004210 

RTHV* ,5x, F 5,3, 5X , *0 FTP  IF  VF  • ) 00004220 

6004  ) TF’ltSI  5 ) 0u00423i‘ 

W«IT*.6*,r5.3,5X,*bAII*l  00004240 

6008 ) THUS  I 6 I 00004251 

WTtP*  ,5X,F5.3.5X.  *»CRh  FCUIPMFM  .7  HR  TF  T • I 00004260 

bOOS  I TFi.Sc  7 ) 00004,  70 

KF  UP  • ,5X  .T5. 3.5X  , • WCRk  FuUIPMFI-T  a'  POSITION*)  00004280 

0 0004  2 So 
00004300 

• I 00004310 

00004320 

• *,4X,*  SEARCH  FCK  IlISIRFSSFn  UNIT*)  00004330 

00004340 

X,*SLO»  ESCORT* I 00004350 

00  0(i4360 

X , • SLOw  HATRCL'I  00C04370 

00004380 

• • ,4X  , ' SF  ARCH  FCK  PrOPIt  * 1 00004340 

00004400 

X , • TOWS • I 00004410 

00004420 
00004430 

) 00004440 

00004450 

X , *FSC(.RT  ' ) 00004460 

00004470 

x,  • identity* ) 00004480 

00004490 

X . M'ATROI  * ) 00004500 

00004510 

• *.4X.*  SEARCH  FCR  TARC.FT’)  0000452U 

00004530 

X , • TRANSPORT • ) 00004540 

00004550 

X , » TRANSIT  r)  00004560 

00004570 
00004580 
00004590 
00004600 

X . • RESPONC  * ) 00004610 

00004620 
00004630 
00004640 

THf  ARIL  TTY  TO  SF  ARCH . CRAFT**S  SUCCf SS0000464 1 


6010  ) 

•REDUCE  IJ  spfLI. : • ) 

6013ITPOSI8) 

SHIU*  ,5a. F 5.3,  •••  ,4X.  *SF  ARCH  FCR  DISTRESSED  UMT’I 
601?) TPuS  f 9 ) 

SI  SC  • ,5a  ,)  5.3.5X  , *SL  0»  I SCORT  • I 
601S)TPuS (10) 

SE  AT  * ,5X,r  5.3.5X , *SLOw  PATROL ' > 

6014  T’TPGS  111) 

SHEU*  ,5a,F5.3.  •••  ,4X,  *SF  ARCH  FCR  PrOPI  I • ) 

6011 ITPOSC 12  I 
T(i*S*,5x,F5.3.5X,*T0WS*  ) 

6016  I 

•cRinsr  spren:*) 

6030 ) TPtSI 13 ) 

FSCT*  ,5X  ,F5. 3.5X  , ' CSCl.RT  • ) 

6U17 ) THUS  I 14 1 

I DM*  ,5X,r5.3,5X,  • I DEM  TTY*  ) 

6018 ) THUS  I 15) 

PATL  * ,5X  , E 5,3, 5X  , ' f*  ATROI  •) 

6019ITPoS(lbl 

STGT * ,5X.r5.3, •• • ,4X. *SF ARCH  FCR  TAR6FT') 

6021 )  TPOS (17) 

TRPT* ,5X,F5. 3. SX, • TRANSPORT • I 
6020 ) TPtS I 10  > 

TRST* ,5X . T5 ■ 3 ,5X , • TRANSIT*) 

6022) 

•flank  sprru:*) 

6023>TPoSl 19) 

RSPD*,5»,F5.J,5x. • RESPONC* ) 


2 * /1 6X , ' IN  FINDING  THr  ObJICT  Or  ThE  SFaRCH  IS  DEPENDENT  UPON*)  00004642 
WRITE  I ITU  E ,6026)  00004670 

6U26  FTTRP'AT  I 16X  , * SCENARIO  IE.G.,  SEARCH  AREA)  * ) 001104680 

WRITE! IFIl E, 60241  00004690 

6024  rORMAT(/10X.  00004700 

1***»*«  DEPENDINT  UPliN  SCENARIO  (E.G..  FOOTPRINT  AND  WEIGHT  OF  CAHG00004710 
20)*)  00004711 

00004740 


C PRINT  PARAMETER  VALUES  FOR  EXPANUED  TASKS  00004750 

C 00004780 

I T I Lt  =6  00004790 

irnYPr.iT.tooiKRiTE(iFn.r.?03n(rRPM<ii.TTPNiiMi,i=i.A)  _ • 00004820 

2031  mHMAT  I '1 '/14X  ,12X  , *C  RAFT  PARAMETER  S'/  00004830 

1 //llX.l5X.'CRArT  TYPE • .5X.8A4 ) 00004840 

IF (TYPE .OF. 100) WRITE ( IFILE .20321 (FGFRNMI I .CGTTPE I .1=1 .2)  00004850 

2032  FORMAT (• 1 '/14X.12X. 'r  HAFT  PARAMETERS*/  00004860 

1//11X  . 15X  . *CRAF  T TYPE • ,5X, 'COAST  f,UAHD  ’.2A4)  00004870 

WRITE  ( TFTlT. 2033  ) ID1SP.  ILCNG.  IcSRn.FuFR  AC  00804880 

2033  FORMAT  ( Ux  . 15X  . 'DISI  LACEMENT '.  16. 2X  .' TONS' / 00004890 

3 Ux, 15X. 'Lf NOTH'. 6X, 16. 2X, 'FEET'/  00004900 

4 llx . 15X . *nt SIGN  SPFEG' . IG.2X , 'KNOTS' / 00004910 

3 11X.15X. 'FUEL  FRACTION', Ffe. 2/1  00004920 

WRITE  ( IFILE  .21 121  VI  SETH.  TOWDTm  . DPHDTp  , SSPDTE1 . A VE  SS  ( SSPDTf)  > 00004930 

2112  r turn  a mix  >T5x « ox  ••  visibility  ptstrtehjttcn  no.'.i?/  00004940 

2 UX . 15X  .4X , • TOR  C 1STR  IliUT  ION  NO. '.  12/  00004950 

2 11X.15X.4X. 'DEPTH  DISTHlRUTION  NO. '.12/  00004960 

3 11X.15X.4X. *&r A STATE  UISTrIHLTION  NO. ',12/  00004970 

4 11X. 15X.4X. • < AvrfiAGC  SEA  ST ATF  = • .F3. 1 . • > * I 00004980 

WRITE  ( IFIII  .2001  I 00004990 

20  01  rORMATI  //T4X, 'TASK* ,2X,* CARGO' .IX. 'nRAFT' . IX  « ' M ANFUV • . 2X , 00005000 

1 'SEA' .3X,'T0to'/14X. 'COLE '.2X.'CPcTY',14X.'STATE'//22x.  00005010 

2 ,CC'«4x.'nF',4X.'MN',4x.'LS'.4X.'Tw')  00005020 

C 00005030 

WRITE! IFILE. 2002)  00005040 

2002  FORMA T ( //I  Ox . 'ON  SCENE:')  00005050 

C 00005060 

WRITE  ( IFILE  .2003)  rjE  ( 2 ) . MN  ( 2 ) . LS  ( 2 ) 00005070 

2003  FORMAT! 1 4X . 'BFD • . 3X , IX . • -- • . 3X . 3 ( F4 . 2 • 2X ) . 1 X , • -- ' . 3X . • BOARD • I 00003080 

wRITt(lFILE.2U04IOFt7l,MN(7>,LS(7>  00005090 

200«  FORMAT! 14X, 'FFF • .3X, IX, ,3X.3(F4. 2. 2X) , IX, .3X, "FIGHT  FTRF  F00005100 
1ROM  CG  VESSEL' I 00005101 

WRITE! IFIir,2005)LS(5)  . 00005110 

2005  r ORMAT  ( 14X  . 'FFO*  .3X  ,3  ( IX  , .3X  ) .F4.2.3X  , • • .3x  . *F  If.HT  EIRE  ON  A00005120 

1NOTHER  VESSEL')  00005121 

WRITE  ( TFIU  ,200b) OF!  1 I .MN!  1 ) .LS(1I  00005130 

2006  rORMAT! 14X. 'GAS* .3X.1X . ,3X.3(F4.2,2X I ,1X, ,3X, 'GENFRAL  ASS 100005140 

ISTANCr ' ) 00005141 

WRITrriFIEE  .20071ESI5)  00005150 

2007  FORMAT ( 14X .' INS' ,3X .3 ( IX .3X ) .F4.2.3X 3X . • INSPECTION* ) 00005160 

WRITE  I IE  ILL  .2008)0!  (7 ) ,MN(7) , LS ( 7 ) 00005170 

2008  FORMAT (14X, 'L! W ' , 3X  « 1 X , «3X«3(F4.2,2X) , 1 X • • • • • «3x, 'l  OAO  EOUIPME00005180 

1NT  ' > 00005181 

WRITE ( IE  III .2009)LS(5)  00005190 

2005  rORMAT(T4X.'LOI'.3X,3(lX.'--'.3X ) . F4 . 2 , 3X 3X . 'LO ITTR ' ) no 005200 

WRITE ( I F 1 1 T «2010)DF (7) ,MN(7) .LSE7)  00005210 

2010  FORMAT! 14X. 'LSn' .3X. IX, .3X.3IF4.2.2X I .IX. • .3X,' LAUNCH  SMALL  00005220 

1 RG'AT')  00005221 

WRITE  ( IFILr  .2011  )EiF(3)  .MN!  3)  .LS(3)  00005230 

2011  FORMAT ( I4X. 'MAC • .3X.1X , «3X,3(F4.2,2X ) ,1X« ,3X, 'MONITOR  ACTI00005240 

' 1VTTIES* ) 00005291 

WRITE  ( IF  II E ,2012) OF (3) .MN(3) ,LS(3)  00005250 

2012  FORMAT! 14X. 'MOS' .3X, 1 X, • — • ,3X. 3(F4 .2. 2X I. 1 X. .3X< 'MONITOR  OIL  00005260 

1 SI’  ILL')  00005261 

WRIT! IIFIIT .2013ILSI5)  00005270 

2013  TORMAT ( 14X . 'ORA' ,3X ,3! IX .3X ) .F4.2.SX 3X . 'UN  ROApn  ASS  I ST  00005280 

1ANCE' ) (10005281 

WRITE  !IF  IE  r.2(il5)LS(5)  00005290 

2015  rOHMAT 1 14X . 'OSC • .3X,3(1 X . .3X ) .F4.2.3X . .3X. 'CN  SCENT  COMMAN00005300 

IDEM  OF  NFRAL  ) • ) 00005301 

WRITE  (IrllE.  2016)  Dl  ( 2 ) . MN  t 2 ) ,L  S ! 2 ) 00005310 

2016  I OR MAT  1 14X . 'RHP* ,3X . lx • ,3x .3(1  4.2 .2X ) .IX . • ,3X • 'RE  TRIE  VF  MOAO 0 0 0532  0 


1HP1NG  PARTY*)  00005321 

WRITE  ( I F IET  *2017)0)  14),MN<4),LS<4)  000  05330 

2017  FOR*  AT  < 14X,  *ROb*  .SX.1X,  . 5X.  5CF4.  2.2X ) . IX.  .3X, • RE  TRIE  VF  UBJ00005340 

rcfTS'  i erenow  i 

WRm<IFIir.?G16>DF(4).MNC4),LSC4)  00009890 

2018  FORMAT C 14X, 'RPC  ,5X .lx , . 3x  .5  (F  4 .2  , 2X  ) , IX  . • .3*  . • RESCUE  PFOPL  00005360 

1C)  00005361 

6RTTT ( TFlLt « 2019 1 OF ( 7 ( , NN ( 7 l .LS  <7  I 0 0005370 

JO  19  FORMAT  ( 14  X.  *RSH*  . 3X. IX. *--*.3X, 304. 2, 2X), IX. '--'.3X.' RETRIEVE  SMA  0 00  0530  0 

irnrcmr ooo bst* \ 

WRIT)  ( IF  ILF . JO JO ) OF (3) .MNI 3) .LSI  31  000  05390 

2020  F0RMATC14X.TSSI* .SX.lx.'--' .3x.3(r4.J,2x) ,lx. ,3X.  00005400 

I'starfcut  special  interest  vessfci  00005410 

WRTTC(IFILr.J02niS(5)  00005420 

2021  F0RMATtl4X.*S/t ». 3X . 3 1 IX 3X ) ,F4 .J . 3X 3X . »SE T7E * I 00005430 

UR  I It  MTTrr.2072TPT  rTT .MN ( 7T.LS  ( 7 1—  ' 60005440“ 

20 22  FOHMAK  14X.  'TwS*  .3X  . IX.  .3X.3CF4, 2.  JX  ) .IX.  .3*.  MAR)  UATFR  $00005430 

1AMPLC)  00005451 

WRITE ( IF 1LE .2023I0F (7) , MM  7 I .LSI  7 ) 000  04460 

2023  FORMAT)  14X.  *ULU»  .3X.1X.  . 3X  , 3 (F  4 . 2 , JX  ) . 1 X 3X . *UNLOAn  » OUIP00005470 

IMF NT  1 ) 00005471 

wrttc  rmrr,702EiLs  rsi — nonmiBB 

2026  FORMAT ( 14X . •WOb* .3X.3(lx.*>>*,5X).Fw.?,3X.*--*.3X.  00004490 

l'WORK  EQUIPMENT  FROM  SMALL  POAT*)  00005500 

WRITL ( IF II  E . 2024 )0F  <6 ) .L Si 6 ) 00  004510 

2024  FORMAT  ( 14X  . *UOD  * . 3X  . 2 ( IX.  *--*.3X.(  4 . 2 . 2X  ) . 1 X . • -- * . 3X  . • WORK  FQIIIPMr0n003520 

1NT  a PR  IF  T • ) 00004521 

URTTOTFIUT  .2025  707(7  VVMNT71  .X5E7  > ~ 

2025  FORMAT ) 1 4X. *W0F  '.3X.1X.'->'.3X.3(F4.J,JX).1X.'--',3X, 

1’uork  fqutpment  a nxrn  position' i 


c 

E 

ir  CTYPE.LT.  100)  WRITL  UFILT  ,3031  MCRFNM)  I .TTPNUM)  ,Isl .«) 

3031  “FORM  ATTT71  AT. E2X.'C  F A r T PTCR  A M F TT  R 3*7 

1 //11X.15X.  *CHAF  T TTPC.5X.6A4l 

IFCTT  PE. GF  .100)WRITE  CIFILF  ,3032)  Cff,(  RNM (I .CGTYPE  ) .1  = 1 .2) 

3032  FORMAT  I M '/14X.12X. T RAFT  PARAWtTfRS*/ 
1//11X.15X, 'CRAFT  TYPE  • ,5X. 'COAST  GUARD  *,2A4) 

WRITL  I IF  IL  T . 3033)  ID1SP.  ILt  NO.  ILSPli.F  UFRAC 
“3033  “FORMAT  Tin  7T3T“,  TClSFLACFMENT*,I6,2y,  'TONS'/ 

3 11X,15X.'LLNGTM',6X.I6.2X,'FCET'/ 

4 11X.15X. 'DESIGN  SPrET) *.  T6 . 2X  . 'KNOTS • / 

3 11X.15X.TUEL  FRACTION'. f 6.2/) 

WRITE  (IF  I) F .31121 VTSETB.TCWCTU.OPhOTB.SSPUTR.AVESSISSPDTD) 
3112  FORMAT ( 11X.15X ,4X. 'WlSldlL ITT  DISTRIBUTION  NO. '.12/ 

2 ITT'.mr.-nri-TOW  DISTRIBUTION  3'0.»  . 12/  

2 11X.15X.4X.' DEPTH  OISTRinUTItlN  NO. '.12/ 

3 11X.15X.4X. *srA  STATE  DISTkIhLTION  NO. '.12/ 

4 1 lx • 13X.4X . • I AVI  RANT  SPA  STATFs'.FS.l.'I'l 

WRITEClFIir, 30011 

3001  FORMA TC//1 4 X. 'TASK' .2X. 'CARGO' .IX. • DRAFT' .IX. 'MANFDV'.JX, 

T5rBT  t xj-  TTtJK , /rmr,  * rocr * ,7x , TPrrr • , i ax  , * state  *//22t,  • — 

2 •CC'.4X.'DF*.4X.'Mfc'.4X.'LS'.4X.'T«i'> 

c 

WR1  TL  ( IF  HE  .30021 

3002  T OR MATT //10X . 'REDUCED  SPEED:*) 

C 

WRITE  f IFTIT  .30047 OF  TOT  .tSTRl  ' 

3004  FORMAT C14X.' SOU'. 3X.2 1 1 X •'••'. 1 X • 2X . I 4.2.2X).1X,'*-'.1X,2X. 
1 TOR  OISTRESSFC  UNIT' I 
WRITI (IFllC  • 3003  I LS ( 9 ) 


0n005530 

00005540 

00005550 

nnro557o 

00005560 

00005640 

— • — nnro5E5U 

00004G60 
00005670 
00005660 
00005690 
00005700 
00005710 
00005720 
00005730 
00005740 
00005750 
00005760 
' 0D0TT5770 
00005780 
00005790 
00005800 
00005810 
00005820 
00005830 
00005840 
00005650 
00005860 
00005870 
00005880 

00005800 

SEAHCH000 05900 
00005901 
00005910 


3003  FORMAT  C14X. ' St S', 3X,3T1x,'--»,3X).F4. 7, 3 X,'»-'»3X, 'SLOW  ESCORT')  00005920 
WHITE ( IFlLt .30051 OF  Lit ) .ESC  11 1 00005930 
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3006  FOHRAT  I 14x  , <SF  l • ,3X  .2  I 1 X . • .ix  ,1  4.2 .2X  I , 1 x . • ,3X  . 'SFARCII  E OH  PnOP05940 

if  ople  • i 00005941 

.nil  i if  ui  . jcub iuf  ( in ) .lsi  io i nnno695o 

3 0 0 1 • r0hMAT(14x  , 'SPT* , Jx ,J| lx . .3x,F4.?.?X) .lx . ,3X. 'SLOW  PATROL'  00P05960 
11  00005961 

»«lTf  I lFll  t .3u07)VMl?l  .LSI  12)  .TWI  IP*  00005970 

a0o7  roxATtl4x,'T,:*,.3X.2|lx,'--',iX).3lf4.2.2X).'TCl»,l  0 0005980 

00005990 

write  ( n ut  .30001  oooo60ou 

SCuATARPAT  ( /VOX  . 'fOSTM — WTtQin  OOlVOfeOlO 

wR  l Tl  (IF  1 L F .3u30)LS(13>  00006020 

>0  3r  rORRA! (14X .•ESC,.3X.3<lx.'--'.3x>.Fu.?,3*.'--'.3X.'F  SrORT* I 000  06030 

wMlrLlII  II  r .3uU9)VM  14  I .LSI  14  ) 00006040 


.RIHIlllU.Jblibl  00006000 

SCuATARPAT  ( /VOX  , » f T7UT 9.1 — SPTtGVt  OOOUfeOlO 

wR  in  ( IF  I L f .3030  ILSI1S)  00006020 

>0  3T  r Aliy  AT  ( 14X  . 'ESC'  .3X.3l  1 x , * - - • .3x1  ,F4.P.3x«  ' - - • . 3X  . ' f SrORT • I 000  06030 

-.Ririiii  n r .3uo9iyM  i4 1 .lsi  14 1 00006040 

30  0“  TARWAT  (14V.  • II  C*  .39.71  lx.  . 3V  1 ,2iE4.?.?X  ) .IX.  .39,  MfirNTIFY  00006050 
llWAI  I • I 00006051 

wpi  rr  r if  tit;  soi  oiwji  ivr  .tsnn  ~ ~ — nonnsoso 

3010  rOKPAT  I 14X  . • II  I •• 3X.  ;-ilx.»--*« 3X1, ?IF4.?,2X), IX. 3X. MOF  NT  IFT  000  06070 

1')  00006071 

«RITilIFlU.3ull)L5il*-l  000  06080 

3011  rrtRWAT  1 1 4X  . •F'AT,.3X..3|1X.*--»,3X),F4.?.3X.’--,.3X,  'PATROL  • 1 000  06090 

• Hill  I IF  II l . 36  35 )LS 1 18 1 00006100 

30T“  rmxmm r,3n.-’  .ir,  z 1 1 x sv)  .to  . 7 . sx ; • rmr.  'snxrn  rm  fltfooottbiio 

ll'l  00006111 

I.RITF  (IFll  F , 301 4 ) DT  116)  .LS 1 16 ) OOP06l?0 

3014  rOHMkT  I 14X  . 'S.Sh'  .3X  .2  1 1 X . • .3X.F4.2  .7X  I ,1  X.  ,3X.  *sr  ARCH  FOR  S00006130 

1HIF’»I  00006131 

fcF'ITM  IF  Hi  .3015)  Cl  I 1 7 ) .LSI  1 7 ) 00006140 

Tors  rTTRyATrTFTi  'Trc  mri r , 2 qtv“- -T,Tr)  ,TOT7,-Tx-r*--x-i3xt»TRTfjsponiTTiORiso 
1RT • ) 00006151 

WRITE  I IFll  f .3016ILSI  Io  ) 00006160 

3016  r AH«AT  ( 14X  . • ll'f  ,.3x.3llX.'--'.3XI.F4.2.3X.'*-'.3X.  • TRANSPORT  I'F  OPL  0000bl70 


IE'  ) 

WRITE!  IF  II  E . 30 1 7 ) LS  1 1 0 ) 

3iri7“mr»ffTnrx.TTRTi»-i3x-imxv»-6T  .txtv  f a r?v3» -- » vst  ; 'transit* t 
wnnr  i if  n e . soipi 

3010  FORRAT  I /10X. 'F  LAWK  SPTFC:') 

c 

WRIT!  I I)  II  t .3019)LS(  19) 

301“-FCTT»ATTTn  ,’TTS1T'-'.-TTT3riX  ,-*--  -»-.  JTr;ro  ; 7 i STi  •^-TTX.'CASH'  T - “ 
kNlltl  Irll  r,3020)LSI19) 

3020  FOKRAT (1MX. • IKT' .3X.3I1X. '--',3X) , F4 .2, SX 3X , • INTFROIOT • I 

c 

WRITE! IFILF.3021 ) 

3021  FARWAT I //10X . 


00006171 

00006180 

00006190 

00006200 

00006210 

00006220 

00006230 

00006240 

00006250 

00006260 

00006270 

00006280 

00006290 

00006300 


rryr»"TrPrrii’ir7;r~OPOT;  ~s  rrrc arto  f rv r. t~.~ fttotpr tnt  mm  kttgrt  rrr  rsRGnrnoossio 

21')  00006320 

00006340 

C PRINT  EXPANDED  TASK  PROBABILITIES  OF  SUICFSS  00006350 

■ C 00006360 

L TPOSI1)  = ASST  s&AS  00006370 

73 17 T ape'RPaPWPaRBP — ' “ — 110006380 

ISIS)  =MNACrSSl=y.AC=PUS  00006390 

IS T 4 I TRTRVrKcn^RPF  00006400 

IS  I 5 ) =t.AlTsFFO:INSsLul=OUA  = S2f  sOSCsWBH  00006410 

3St6>  swrooswcc  oono64?o 

IS  I 7 ) = wrQP  = ErEsLEO  = LS[)sRSBsTwS  = L/LOsWUE  00006430 

3S(P)-=SClU?3ntr n 00064  40 

■>st9)  sSE  SC  = St  S 00006450 

3SII01=SPATsSFT  00006460 

3SI11 |SSPE0=SPE  00006470 

IS  112 ) STOWS  STOW  ‘ " — 00006480 

IS  1 1 3 ) sE  SC  T = E SC  00006490 


C TP0SI3)  sMNACsSSIsK AC=BuS 
C TPOSto ) rRTRVrRCRrRPr 

t TPOSI5)  =wA lTsFFOsINSsLul=OUA=S2t sOSCsWUH 
C TP0SI6)  sWTQOiWCC 

t TPOS  I 7 ) = wEQP  = ErFsLEOsLS[isHSB  = TWSsULOsW<gF 
C TP03I8)--SCI UTSptJ 
C TPOS I 9 ) ssE  SC  = Sl S 
C TFOSIIOHSPaTiSPT 
C TP0SI11 >=SPE0=SPE 
C TPOSII2)=TOWSsTOW 
C TPOS 1 13 ) st  SC  T=ERC 
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C TPOSI14)=lCNTrIUC=10F 
C TP0S!15)=PATL=nAT 
( TP0S116)  = ST(,TiSSM 
t-THPSn7):fHPT  = Tl  Q=**»* 

C TP0S!18)=TRST=S)  L = TPF  = T)\  A 
C TP0S(191ihSPD=IMI-DSH 

c 

ir  iu -b 

IF! TYPE .LT . 100  > WHI TE  t IF ILI  .703l)irPtNM(I.TYPNUM),ril,fl) 

7031  FORMAT! 'TFVSX.6X.  *T  ASK  p R 0 E>  a B I L I T T r S of 
l'SUCCFSS* 

1//2X . 15* . 'ChA) T TYPt • .5* .6A4 I 
IF  I TYPE  .OF  . 1 00  ) MR  I Yt  (IE  I L E • 7032  M r Gr  RNM  ( I . CGT  YPE  1 • I = 1 • 2 I 

7032  FORMAT (' 1 '/5X.8X. 'T  ASK  PKOPaRIlITIFS  OF 
l'succrss*/ 

'T7/2X.15X .' CRAFT  TYPC* .5X . 'COAST  GliARO  '.2A4I 
WRITE  ( It  HE  .7033)  IL1SP.  ILENG.  II  SPn.FLFHAC 

7033  FORMAT  I 2X, 15X, • 01 SPLACEWrNT' .16. 2x.' TONS'/ 

3 2X.1SX. 'LENGTH' .uX,  lb. • TEET'/ 

4 2X.15X, 'DESIGN  SPE F 0 • . 16 . 2 X . 'KNOTS • / 

5 2X  « 1 SX . ' t U! L FRACTION'. F6.2/1 

' WRITE  ITFIir.  71 12 YVISCTR . TOWCTtJ.  OPuOTP  .SSPOTR.AVESSISSPDTB) 
7112  FOHPAT  (2X,  1 5 X « 4 X , 'VISIBILITY  J 1 S Th  I nllT  I ON  EO.'.IP/ 

2 2X.1SX.4X. 'TOW  DISTRIBUTION  NG.'.I2/ 

2 2X.lsX.4X.'  DEPTH  L I STH  It.UT  I ON  NO. '.12/ 

3 2X.1SX.4X. 'SEA  STATE  DISTRIBUTION  NC.'.I2/ 

4 ?X , 1SX ,4X . • t AVE RAGE  SEA  STATE s • ,F 3 . 1 . • ) • I 
WRITE riFICF, 7001 ) 

7001  FORMAT  ( / /14X. 'TASK '.3x. 'TASK  PROP  . • .4  X . • T ASK  • /14X  . 'COfiE  • . 

1 3X,'OF  SUCCESS') 

t 

WRITE ( IFILF . 7002 ) 

7002  FORMAT ( //I  OX . 'ON  SCENE:*) 

WRITE ( IFILE .7003)  TPCSI2) 

7003  F0RMATI14X. 'BRO* .6X.P5.3.5X. 'BOARD' 1 
WRITE ( IF ILE.7004 )TPOS( 71 

7004  FORMAT! 14X, 'FFF • .6X.T5. 3. 5X. 'FIGHT  FIRE  FROM  CG  Vf SSEl • ) 
WRITE (IriLE. 7005) TPOS! 5) 

7005  FORMAT!  14X. 'FFO' .6X.rs. 3. 5X.  TIGHT  FTRF  ON  ANOTHER  VESSEL') 
WRITE ( IF  ILF .7U06ITPUSI 1 ) 

7006  rPRMAT II4X. 'GAS* .6X.FS.3.5X. 'GFNERAI  ASSIST  ANCF • ) 

WRITE ( IFILE. 7007 )TPOS (5) 

7007  FORMAT I14X,'INS'.6X,F5.3.5X. • INSPE C T TON • ) 

WRITE ! IFILE. 700fl)TPoS(7) 

TOOTS  F0HMBT(T4T.  'LETS’  .6T.F5TT.3X.''L0AD  E01JTPMEN7'  ) 

WRITE ( IFILE. 70091 TPUSI5) 

7009  FORMAT! I4X. 'LOI' .6X.F5. 3. 5X, 'LOITER' ) 

WRITE  1 IFILE ,7010 ITP0SI7 I 

7010  rORMAT114X. 'LSB* .6X.F5. 3, 5X. 'LAUNCH  SMALL  BOAT') 

WRITL ( IFILE. 7011 )TP0Sl3) 

- 7011  F0WMATTT9T.-nEHC~rT6X.F5;T.- 5X . 'MONT TOR  AOTTV ITTrR  1 

WRITE! IFILE .7012) TPOS! 3) 

7012  FORMAT! 14X. 'MOS' .6X .F5.3.5X, 'MONITOR  OTL  SPILL') 

WRITE ( IFILE,7013)TPUS<5) 

7013  FORMAT ( I4X. 'ORA* .6X.FS.3.5X. 'ON  BOARD  ASSISTANCE') 

WRITE  1 If  ILL ,7015)TPUS15> 

—TOTS'  F OHMATTPnr.'OSC'  .6T.F5.3V5X.  'ON  "SCENE  COMMANDER  TGFNEITACTTT" 
WRITE I IFILE ,701b)  TP0S12) 

7016  F0RMATU4X. 'RHP' .6X.F5.3.5X . 'RETRlEvT  BOARDING  PARTY') 

WRITE !lrILE.7017)TPOS 141 

7017  rORMAT(14X. 'ROES' .6X.ES, 3. 5X. 'RETRIEVE  OBJECTS'! 

WRITE ! IFILE. 70 18) TPOS I 4 ) 


00006500 
0000651 U 
00006520 
0000653!) 
00006540 
00006550 
00006560 
00006590 
00006620 
00006630 
00006640 
00006650 
00006660 
00006670 
00006680 
00006690 
00006700 
00006710 
00006720 
00006730 
00006740 
00006750 
00006760 
00006770 
0000678U 
00006790 
onoobflou 
00006810 
00006820 
00006830 
00006840 
00006850 
00006860 
00006670 
00006880 
00006890 
00006900 
00006910 
00006920 
00006930 
00006940 
00006950 
00006960 
00006970 
00006980 
n0!10699D 
00007000 
00007010 
00007020 
00007030 
00007040 
00007050 
00007060 
00007070 
00007080 
00007090 
00007100 
_ ' 0000711 0 
00007120 
00007130 
00007140 
00007130 
00007160 


1 1 51 


7018  F0RMATI14X. 'RPE* »6X.F 5.3. 5X. 'RESCUE  PEOPLE') 

WRITE  I IFILE .70191 TPGS1 71 

7019  FORMAT! 14X, 'RSB' .6X.F 5. 3.bX. 'HI TRIEvt  SMALL  BOAT') 

arm  <rprce.  Term  tpot;  < 31 

7070  FORMAT  ( 1 4 X « 'SSI  • , 6X  , F ft.  3 , 5X  t 

l'STAKfOuT  SPElIAL  INTEREST  VESSEL' » 

WRITE ( IF  II E .7021 ITPuS(5) 

7021  FORMAT  ( 1 4x  • • S2E  '.6X,F5.3.SX.'SEIZF'l 
WRITE(IFIEE,70221TPGSI7) 

702?  rORMATIV4X. 'TwS» .6X.F5.3.5X. 'Take  water  SAMPLE' > 

WRITE ( IFILE .7023ITP0SI7) 

7023  rOHMAT(l4x, 'ULQ' .6X.E5. 3. 5x. 'UNLOAD  EQUIPMENT') 

WRITE  1 IF ILE .7026) TPuS  1 5) 

7026  FORMAT  1 14 X . ' wQD ' .6X  .F5.3.5X. 

1 • WORK  EQUIPMENT  FROM  SMALL  BOAT') 

hrtte  TTrnr . 7 0 2 R)  TP  0 S ( 6 V 

702"  FOHMATIIHX, 'WOO', 6X.F5.3.5X, 'WORK  EQUIPMENT  a nRIFT'l 
WRITE ( IT ILE .7025) TPOSl 7) 

7025  FORMAT! 1 4X  , 'WQF' .6X.F5.3.5X, 

1 ' WORK  EQUIPMENT  a FIXFO  POSITION') 

C 

ir»TTPE.LT.100)WRIT)(IEILE.8031)(rRENM(I .TTPNUM ). 1=1.81 

8031  rORMATI '1 '/5X.8X, «T  ASK  PRO  MARTI  ITITS  OF  '. 
l'S  U C C F S S • 

1//2X.15X, 'CRAFT  TYPE • ■ 5X ■ 8 A4  ) 

IF ( TYPE .GF .10U IWRITL ( IF  ILL .8032) ( f GCRNM ( I .CGTYPE ) . 1 = 1 ,2  I 

8032  TnRI»ffTT'l'/5X.BT.  *T  TS'ITP  R 01  1 B I L I T I F S 0 F ». 
l'S  U C C r S S •/ 

1//2X. 15X. 'CRAF  T TYPE '. 5X .' COAST  GUARD  ' » 2 A4  ) 

WRIT!  ( IF ILE .80  33) ID  ISP. ILLNG. ILSPO.FUFHAC 

8033  rORMAT (PX. 15X  . 'DISPLACEMENT'. 16, 2x  , 'TONS'/ 

3 2X.15X, 'LENGTH* .bX, 16. • FEtT'/ 

4 2X.15X. 'DESIGN  SPrFC  ' . 1 6 . PX  . 'KNOTS  ' / 

5 PX.15X,'FUtL  FRACTION'  .EG.?/) 

WRITE ( IFILE  .8112)VISrTB.T0WCTU,nPMDTB.SSPDTB.AVESS(SSPDTB) 
8112  FOHMATtPX.lSX.HX, 'VISIBILITY  U I S TH  I rll  T I ON  NO.  '.I?/ 

2 ?X  , 15X.4X . • TON  D ISTP IE3UT  I ON  NC.'.I?/ 

2 2X.1SX.9X.  'DEPTH  UISTMIEiUTION  NO.  '.I?/ 

3 PX.15X.4X. 'SEA  ST  ATE  DISTRIBUTION  NO. *,12/ 

4 2X.15X.4X, '(A VFRAGE  St  A STA TF  = • , F 3 . 1 . • ) • ) 

WRITE  ( IF  Iir  .8001  I 

80G1  r OHMAT (//) 4X .' TASK • .3X .' TASK  PRCB. • .MX, 'TASK'/14X, *COnf • , 

1 3X  , • OF  SUCCESS') 

C 

WRITE  ( IF  II  r .800?  ) 

HOOP  FOMMATC//10X. 'REDUCED  SPEED:') 

c 

.Kill  ( IF  11  I ,8004  ) T POS  I 8 ) 

8004  FORMAT  1 14X . 'SDU* .6X .F5. 3. '•' .4X, 'SEARCH  FOR  DTSTRFSSED  UNIT') 
w»  J II  I IF  Ilf  ,8003)  TPuSI  9) 

8003  rORMAT1 1 AX. 'SES' .6X.rK.3.5X. 'SLOW  ESCORT') 
wRITt  1 iFlLf  .80  05)TPoSt 11 ) 

8005  FORMAT! 1 4X , 'SPE • .6X .f ',3. ••• ,4X. 'SEARCH  FOR  PEOPLF') 

WRITE  ( IF  II  F .8008  ) TPGS  I 1 J ) 

8006  FORMAT ( 14X • 'SPT ' «6X .F  5.3, 5X . 'SLOW  PATROL') 
wRlTt  I IF  II  I .8007)  TPoS  112) 

8007  rPRMAT  n 4X . 'TOW' , 6X .F5.3.5X, 'TCW' ) 

L 

WRITE (IFILE .8008) 

8008  F ORMAT ( /10X . 'I RUISt  SPEED:') 
wRITE  I U ILE  . 8 (j  6 0 ) T F dSI  1 3) 

8 08  0 rORWflT  ( 14*  , 'F  St  • ,6X  .F  5.  j , 5X.  'f  SCORE  • ) 


00007170 

00007180 

00007190 

aoooiioo 

00007210 

00007220 

00007230 

00007240 

00007250 

00007260 

00007270 

00007280 

00007290 

00007300 

00007310 

00007320 

00007330 

00007340 

00007350 

00007360 

00007380 

00007390 

00007450 

00007460 

00007470 

00007480 

00007490 

00007500 

00007510 

00007520 

00007530 

00007540 

00007550 

nnoo7560 

00007570 

00007580 

00007590 

00007600 

00007610 

00007620 

00007630 

00007640 

00007650 

00007660 

00007670 

00007680 

00007690 

00007700 

00007710 

00007720 

00007730 

00007740 

00007750 

00007760 

00007770 

00007780 

00007790 

09007800 

00007810 

00007820 

00007830 

00007840 

00007850 


: 


i :o 


:: 


ji 


1 


WRITE  ( IF  II  t .80091  TPuSIlH  > 

8009  FORMAT ( 19X. • IUC' .bX.f 5. 3.5X. • IUENTIFY  CRAFT'  ) 

WRITE ( IF IlE .8010  > TPOSt 19  I 

"6018  FORMAT ( i4* , • Inf  • «6x <Tv,  j • Vx • • i fiFNf  i f t e'effT') 

WRITE! IF  II  t (Bull 1 TPOS I lb ) 

B011  FORMAT! 19X. 'PAT' .6X.F 5.3, 5X. 'PATROL • ) 

WRITE ( IF  II E. 8035) TPOSI 18) 

8036  rOftMAt<l4x.'S)l'.6X.E5. 3. 5X. 'SEARCH  FOR  (LllT'l 
WRITt(IFllt.8bl8)  TPOSI  16  > 

" ' 00 1 4 T(VRSrATn<*  T,  'SShT  7£i  .T?  .Td  • » , if  xT'SI  arch  FOR  ShiP'1 
WRITE ( IF ILE .80151  TP0SU7I 

801?  FORMAT  ( 19X  . 'TFCi'  .bX  ,f  *.  3,  5X,  • TRANSPORT  FUUIPMFNT') 
WRITE  I IFIlt .80161 TPOSI 18) 

8016  FORMAT! 19x , 'TPt • .6X.F 6.3, 5X . 'TRANSPORT  PtOPLF'l 
WRITE ( IF II E ,8017  >TPuS( 18) 

“BUTT  TT71TPJTT  n9Y  rTTR  JT’Yjnrvr? . 3 ,5Y , ' TR  ANsIT"*") 

C 

WRITE  ( IFIir.Bnifl) 

8018  rOHMAT  ( /10X  , 'f  LANK  SFEIL:') 

C 

WHITE  I IF IL I ,8019) TPbS! 19) 

’ BTTTT  XETRTFAT PIRTT  ,'T'SH  * . 6X  ,F5 . 3 , 5X  .^nASD'  ) 

WRIT! ( IFIlt ,8020)TPoSI 19) 

R0  20  T OR  MAT  I 18X  . • ITT'  , 6X  . T 6 . 3 . 5X  . • If.TEROI  CT  • ) 

C 

WRITT IIFIir,802J) 

802?  FORMAT  I //I ?X , 


00007860 
00007670 
JHW)0  78B0 
00007890 
00007900 
00007910 
00007920 
00007930 
00007990 
00007950 
00007960 
00007970 
000079d0 
00007990 
00008000 
00008010 
00008020 
00008030 
00008090 
0000805a 
00006060 
00008070 
000060PC 
00008090 
00008100 
00008110 
00008120 


- IX,  -- TFT5 ' TSrTT'F  P.C.?‘.  OF  TUT  ARTl  T TV  TO  SEARCH.  CRAFT*  • 6 RUOfTSSOOflOBl?! 

2'/lbX.  'IN  F I Ml.  I NO  Till  08  Jl  C T al  TliF  SEARCH  IS  OFPFM-EnT  UPON')  000081?? 

WRITE  1 IFItr .8023)  00008160 

8023  FORMATIlbX.'  .SCENARIO  ((.(,.  St  ARC,.  ARFAI'I  00009160 

WRITrfIFIir.8021)  00008170 

8021  FORMATI/lOX,  0000818b 

Txtt  XV*  TIE  FT  NTT  N T ~ UF  CTO  S C TN  A R 1 0 {T.G.,  FOOTFR  T NT  AMT  WTTOHT  OF  ( AR600008190 

20)')  OOOOBiOU 

C 00006220 

WRITE (6,6090)  0000823c 

6090  T ORMAT ( • 1 • ) 00008290 

RFTURN  00008250 

TT!D 00008260 

C 00008270 

C 0000826b 

C OOOC829U 

L 00008300 

L V.TAO  0001.831b 

-c ~ — 00008320 

C WtlOl.Ttn  AvrRAGI  VELOCIIT  AM)  FUEL  RATI  00008330 

C 0000839b 

SUBROUTINE  VWTAV ( SSM  PU.WISDIS.WlSPTP , VMXVI S.TTPF .DISP.RATf , 00008350 

IDSPtEP  .rUFLRT , VI SFLil  , 9A W6 . AVFURT  I 0 0008360 

IMPLICIT  REALIA-2)  00008370 

TTrrrcrR  TTPrf  pattest  .nrcTAr.visTTrvssn.visi  tp  nnonB3eo 

DIMENSION  SSPRL0I8 ) .XMXVlSI 3) .Visnisi 3,3)  00006390 

DIMENSION  EtlElHT(9  ) .Visrut  13)  00008900 

VAVG  = 0.  00008910 

AVFURT  : 0.  OOOOP920 

DO  lb  SSI  : 1.8  00008930 

S3TU  Tf  STTJ  - 1 — “ 80008990 

DO  1U0  OILTA  = 1,9  00008950 

ss  = sso  ♦ nriTA/io  nooo896o 

00  200  VlSTYP  = 1.3  00008970 

PVINS5  = tPt SSSITYPE .OISP.RATF .DSPEEr.SS)  00008980 

VINSS  = OSPtl H»PVIT NS/10U.  00008990 


CWCIS  = AMII.llvlKSS<VVXwlblVi!>1YP|l 

rn  sj  = sspm  t i ssi  )/s. 

I'PFvl'-  = V IM  IS  l V IS  I U , V ISPTH  I 
w AV fi  ; vAWi  ♦ VWWS*HPfSS*prri/IS 
FlllUM  : rill  Ll<1  (HATI  I 

ir  l vF  » V IS  t u 1 SI  71  ) .1  T . 1/  Ilvb.s)  fulliSl  : VISH.ll  (VIKTYPI 

AVFLht  ; AVI  l.M  t r ul  I St • ! 01  s s .t>0t  V I S 

✓ ro  fpmi/.u 

1 0 0 COM  1 1 If 

\v  r'CMtu., 
nr  k k . 
rv'i. 

t 

L 

L JtPbSS 

r — 

C Cl  VI IL  AT  I VI  PPPf  . L<IL  ITT  U S£  « SIATt 

C YCPPSS  l ss  ) ; PACI  THAT  S|  A STATL  < Pn  i SS 

L 

riircTTCN  irri  ssissprcf .sspptb.ss) 

1'UH.IT  Ilf  ALIA-/) 

TTfrccrw  sspt.rr,-j,  istpx  i rss 

l JWtNsIOf.  SSF  non  1 1*.  10  I 
TriSS.LT.P.lGr  TO  H 

iCPhsSrl . 

RFTUPf. 

SO  1S.S  = SS 

■ TOTFnrss-Tsr. 

POfaM W=U. 

ro  loo  jm.tss 

PReSCWsPUPSl  PtSSPKOM  J.SSf  Pib  I 
100  COKTiritr 

If  TSSrISS*l 

fCPErsirRFsriM  irTTRMssFPTrrufrrss  cssft-tot 

HfTL/M. 

r\c 

c 

c 

t 

C PTWC 

c 

C TCW  CtSPL  ACI  PFM  ccMJLAUvl  PhOlAlilLlTT  LISTP1I  UTIOfV 

r 

L PTOwDlD:  PKOliAblllTY  THAT  CHAFl  To  t»F  TO»Fr  HAS  PTSPLACfMFNT  < 
C WVTKC5  = AvrpAl.C  CTST’rACTWrTir ~VAttlF — THAT  TAT  FF  TTWFC 

c 

snpRCUTTf.F  FTfcClTDWI  I S . TOnOTri . T OWOSP  . PT0V.0  . AVTWCS  ) 

IMPLICIT  RlALlA-21 
t IMTFGFR  TOWnTP.I 

OfWNSlOJ*  Tow(:  1 S l 6 • S ) 

10  OUT  = » te  I If, . ll  . . n . . 1 C»(  I S I 1 . TuwrTP  I . 0 . . 
lTOV.ns(?.TCWOTP)  . 

ITOfcDIS  l 3.TOWCTK  ) . .H  . TrwC  I S l <4 . TCWPTH  1 . .6  . TOwOT  S I * . TOOTH  ) . . H , 
2T0l<riS(P.T0»DTFI  . 1 . . 999999  • . 1 . I 

I’TCwli  = OUT 

OUT  = »*8  ( Ifj.li  . . 0.  . 0 • . TCM  IS  ( 1 . TO.PTH  I . . TOWM  S l ? . TOwOTR  I . 

1. t.TOWrtSF J.TohOTB) . . 6 . TOP I S I 4 . TPtaPTR ) . 

2.  fit ToP1SI5.TopTb> < 1 . . ! OP I S ( 6 t T(  WPTR) 1 1 . .999999. ) 

60  AVTV.CS  : OUT 

100  HfTUM. 


0000H500 

oopopsio 
onniip.spu 
ouocfi5So 
oooob54d 
oooorSso 
oooopsbo 
OPPI/E570 
onnofiSflu 
00008596 
noooflboo 
0000861 u 
oooopbPO 
r,roofi63o 
pnoofibS j 
00008650 
noroiibbo 

OOOOR67U 

oonoebflo 

00008690 
00006700 
nnnoP7iD 
00008720 
00008730 
0000874U 
00008750 
000  08  761) 
00008770 
00008780 
00008790 
O0008B00 
00008610 
00008620 
oootrasBO 

0000884U 
00008650 
00008860 
00008870 
00008680 
80008890 
00006900 
00008910 
00008921) 
00008930 
0 00008940 

mmnR9B0 
00008960 
00008970 
00008980 
00008990 
00009000 
7)1700  9 01  0 
00009020 
00009030 
00004040 
00009050 
00009060 
001709070 
00009080 
00009090 
00009100 

noooono 

00009120 


■ 


1 


■»  1 


END  oooomio 

c ooooriho 

c norumsu 

T ' onoovino 

c irotav  00009170 

C 00009I60 

C yCIGKTLD  AVLRAGt  HOT  I ON  Of  CRAF  7 (10009190 

C 00009203 

FUNCTION  *RyT  AV  I SSPivUP  . TYPE  .0  ISP. RATE  I 0000921., 

TPP1ICIT  RFALlA-7)  0000922U 

IMEGTR  TYPf  .RATE, SSI. SS  00009230 

DIMENSION  SRPRBU  < ft  I 0000924U 

t 00009290 

SllM  = 0.  00009200 

t LAMBDA  CONVERTS  HAvr  HE1GPT  FROR  CRAFT  HI SPL Act RFNT  TO  00009270 

T BASF  rTSFiactPrKT  (iioo  TONS!  00009280 

L AMUL  A = I 100/UISP I •» .3*3  000  09290 

IF  I TYPE" .FQ.60 ) LAMBDAS ( 15Q0/DISP  > *• • 333  00009300 

00  100  RSI  = 1 ih  000119310 

SSiSSl-1  00009320 

HVHTCF=.S» ( -1 .♦2.5»LXP( .4»SS) ) 00009330 

'■  '“WFTBS51  AMBriAVWVHTCF  00009390 

SURrSUR  ♦ SRPRllO(SSl)»iRVSyM(TTPF.RATF,yVHTHS>  00009350 

100  CPNT1MJF  00009360 

*»fcTAv=SUR  0000937U 

RFTURN  00009380 

END  00009390 

C 00009900 

C 00009910 

C *RVSWH  AND  1WHVSR  00009920 

C 00009930 

C ROTION  CF  BASF  CRAFT  VS.  NAVI  PEIGHT  (FOR  DISFL ACFRENTd 00  TOMS  00009990 

C l *CE PT  TTPF  60  OlSPLAf LRf MTilSOO  TONS)  AND  RFVFNSF  00009950 

T -•  — ‘ — “ " oooo9c«o 

function  *rvs»p(Ttpl .nate.whtbR)  00009970 

IMPLICIT  REAL ( A-7)  00009980 

1NTFGFR  TTPf  .RATE  .TLAr.  00009990 

C 00009500 

IN  i y VhTRS  00009510 

TL AG  ± 0 00009520 

GO  TO  1 00009530 

C 00009590 

ENTRY  *yHvSR(  TYPE  .RATF  .RTM  00009550 

IN  5 RTN  00009560 

FLAG  r 2 00009570 

T” — - - — — - irn(T095B0 

1 ir (TYPE. NE. 10)00  TO  11  00009590 

IFIRATE .EO. 1 .OR.RATE.FO. 2)  OUT  = *»*3 I IN . FL AG . 0 . . 0 . . 15 . , . 5 . 00009600 

118. . 1.0)  00009610 

IF  f RATF .£0.3)  OUT  = *** ( IN .FL AG. 0 . . 0 . . 8 . , 1 . 0 l 00009620 

IF(RATE.L0.9)  OUT  = »** ( IN. FLAG. 0. .0. ,12. . 1 .0 ) 00009630 

G0  Tu  w - DomresAD- 

11  IFITTPE.Nr .11)60  TO  20  00009650 

TFTRATF.ro. 1. OR. RATE.FO. 2)  OUT  = »*13 ( IN , FL AG . 0 . , 0 . . 5 . . .25 . 00009660 

18. . 1.0)  00009670 

TFI RATF . EO • 3 1 OUT  = 1 IS  I IN . FL AG . 0 . . 0 . , 1 0 . . 1 . 0 ) 00009680 

ir  (HATE  .C 0.9  ) OUT  = ***( IN.FLAG .0 . . 0 . , 19 . , 1 .0 ) 00009690 

GTT  To  999  * ~ 00009700 

20  IT (TYPE  «NF .20. OR .TYPE ,NE  *21 )G0  TO  90  00009710 

IFTRATE.FO.l ) OUT  = *1*3 ( IN ,FL AG . 0 . • 0 . . 9 . . . 2 . 5. . 1 . 0 ) 00009720 

IFIRATE. EO. 2)  OUT  = 1**3 ( IN .FL AG , 0 . . 0 . .9 . . . 2 .6 . . 1 . 0 ) 00009730 

iriRATF.FO. 3)  OUT  = S*S3(TN.FLAG.0..0..9...2,7.,1.)  00009790 

IFIRATr.EO.9)  OUT  = SS*3( IN. FLAG. 0. .0. .9. . .2*10. , 1 .0)  00009750 


40 


50 


60 


GO  TO  999 

ir ( ttpe  .Nr, 


50 100  TC  50 


l»*3(IN,FLAG.0..0..5.,.2.7..1.0> 

i * i 3 ( In  . Fl ag . n . . o . . A . . . ? . 8 . . i . o ) 

»»I3(IN,FLAr,  .0..0..5...2.10..1.0) 
»*»3 ( IN. FLAG. 0..0. .5. ,.2.12. .1.01 


IMHATE.EO.il  OUT  z 

iMRATr.Fo.pr  sut 

ir ( RATF .10.3 ) OUT 
IF (RATF .to. 4 I OUT  z 
GO  TO  999 

IF ( TYPE .Nr .90  I GO  TO  GO 
IF (RATE.lQ.T ) OUT 
IF (RATt.Eo.2)  OUT 
IF  IRATE .10. 3 I OUT 

If  irate .to. 9 ) out 

GO  TO  999 

IF  (TYPr  .Nr  .NO.Oh.TYir  .NE  .70.0R.TYPE.Nr  .80.CR.  .NOT.  (TYPE  .GT.lonn 

1G0  TO  80 

l rt  UN'.r L AG  , 0 . . 0 . . 3 . . 1 . 0) 

3S3(lN.FLAG.0..n.,b.,1.0> 

t**(IN.FLAG.0..O..R..1.0) 

433(1  N. FLAG, 0.  . 11. ,1?.. 1.01 


»*»( IN.FLAG.O. ,0. .3. ,1 .0  I 
3S3(lN.FLAGt0.<n.i9..1.0) 
3331 INfFLAG.O. .0. , 8 • il .0 ) 
333(lN,fLAG,0.«O..12.«1.0) 


OUT 

CUT 


iriRATT.ro. 1)  CUT 
ir  irate  .to. p>  out 
rMRATr.E0.3l 
IF (RATE .EC. 9 ) 

GO  TO  999 
FOR  TYPE  = bo 

BO  OUT  z *i*3( TN.FLAG.G. .0. .17.143. .343,21 .01 .1 .0 ) 
999  *wvSRP  r OUT 

IFIJMvSbH.GT.l.)  tKvSx.il  = 1. 
tRRVSM  z OUT 

RTTURU 

ENU 


jprPTo 


OlPTo  CUPILATIvr  PR0PAH1LTY  0 1 STR  I PUT  T ON 

tPOPTMIMzPROFiAhlLITY  IpAT  UE  PTH  < 0 

F UNCT  ION  tPUFTMOPHuTP  .LEPTU  ) 

IWPL IC IT  Rf  At  ( A-2  ) 

IMTFGFR  0PM|  TP 
IMDFITTP.rc.l  FiFTPTI'zO. 
rf  turn 
ENC 


tprsss  and  tsscns 

PERCENT  CE  SIGN  SPEED  Vs  SEA  STATE  AND 
srA  STATE  V G PERCT MT  DESIGN  SPEED 

FOR  CRLIsr  I »AXIM( IV  IS  LIKITEO  FT  I INF  PARAICTL  TO  INITIAL 
flam*  ltni  ano  starting  f r or  percent  design  speeu  axis 
at  cwsor f 2 1 

tor  Rtrncrc  spefl:  maxikuk  is  likitfd  py  linf  parallfl  to 

SEA  STATE  Axis  AT 

PCRCINT  DESIGN  SPEED  z CwSPO  I 3 ) /Ot  SIGN  SPrtO»100 


TUNC  T T ON  tl’l  SSSITYPL.DISP.RATr.nSPFFn.sS) 
IMPLICIT  RfALIA-21 
INTn-rw  TYF’F  , R ATF  .FLAG 


nnnn97G0 

00009770 

00009780 

00009790 

00009800 

00009810 

00009820 

00009830 

00009890 

00009830 

00  0098G0 
00009870 
00009880 
00009890 
00009891 
00009900 
00009910 
000099PU 
00009930 
00009990 
0000999 1 
onno997o 
00009990 

nooioooo 
0001 001 0 
00010020 
00010030 

onnio?on 
00010210 
0001 0220 
0001 0230 
00010290 
0001 0230 
00010260 
00010270 
0001 02B0 
00010290 
00010300 
00010310 
00010320 
00010330 
OG01P340 
0001 0330 
00010360 
0001 0370 
000103BD 

0001  039(1 
00010900 
00010910 
00010920 
00010930 
00010440 
00010430 
00010460 
0001 0970 
0001 0480 
00010490 
00010500 
(pool  obio 
00010520 
00010530 
00010540 
00010550 


124 


* 


IN  = SS 

riflt  = o 

GO  TC  1 


r tjthy  jssposi  type  .niip.HAir  .Dsrrrn.pcospc  i 
In  = pCOSPD 
FLAG  r 1 

C 

I iriTYPf .EG. 10)  GO  Tu  10 

mnpnr  i^rmsfrr  in  i 

IFCTYPE .EQ.20.0R.TYPE .CQ.211  GO  TO  70 
irtTYIF.ro.50.0K.TYPt.EG.70l  gC  To  TO 
IFITYPf.EQ.80.0R.TYPF.F<;.102.0R.TYPr.E<3.10;.nR. 

1 TYPF.tQ.1Ch.OR.YTPF .Ed. 1C 7. UR. TYPE .10. U 8. OR. 

1 TY pr. 10. 10S. OH. TYPE  .EO.nO.OR.TYPF.EO.nl. OR. 

t — Typr.“rc.'ii7T~  wtho 

IF(  TYPE  .to. NO  ) GO  TO  *-0 
IF ( TYPE .EO • NO ) GO  TC  AO 
K ( TYPE .to. 40  I GO  T^  40 

triTYnr.rfJ.T01.0R.TYpr.tu.l04.ClR.TYpr.E0.1C,5l  GO  TC  lnl 

c 

“TO Tr  HYATT"  .TO  .7  T"GO  TO  1(10?  ~ 

IF  (DI«P.LF  . 1 011 . )OUT  = »**4(IN,ELAG.0..100.,5..91.7,5.. 

no . .7 . % o . i 

II  (UlSP.GT  .10G..ANC.C  TSP.IC.2G0.  ) OUT  = SSS4  I I N • F L AG  • II  . . 

1100. . *.5. 90.8.5.5,20. .7. 5.0.) 

If  IPlSP.6T.yQ0. > 01  I a $i%4 I IN, FLAG. 0. . 1 00. .h. .90 . ,h. . 

120 . . IT.  .0.1 

GO  TO  991 

C FOR  RATE  = ? ANO  TYPE  = 10 

100?  IF  (imp. EE.  100.  > OUT  r *»»4  ( IN , FL  AG  . 0 . . PI . . 5 . . 7b  . 7 . 5 . . 

1?0. .7.  .0. 1 

IT  CU1SP.GY.  1 00.  . ANU.tJlSP.lE  .208.  ) OUT  a IS  J 4 ( I N . I I AG  . n . . MS . . 

— 'lays  .Ty.'ir;  s.y.70 . yryarinrv  * — ~ — 

iriUlRP.GT.200. ) OUT  = »»»4(lN,FLAG.n..H5.,b..75..b..70.. 

18..  0.) 

GO  TO  999 

c 

II  IF  IRATE .1 0.? I GO  TO  110? 

TnfTTSFM.T.'TOG  . ) OUT  = 1SS4I  IN  ,FL  AG  .T)  . , 1 00  . . 4 . 5 . f ? .5 . 5.  18 . 

1?0. . 7. ,0. I 

irtOISF. CT. 100.. AND. CISP. IE. 200.1  OnT  = * S 1 4 I I N ,Fl  AG , 0 . . 
1100.  • 5 » »5H.3.5,bb,2L . .7 . 5 * 0 . ) 

ircniRP.GT.200. 1 OUT  : SS&4 I IN  • FL  aG.O. . 1 00. .5.5,54.2,8.3, 

120. .8.  .0.  1 

on  tc  tn  — 

c 

1102  IF  I ul RF .IF . 1 00  . ) OUT  r *»»4(lN,rLAG.0..40.,4.?2,5n.5. 

15.18.20. . 7.0.0.  I 

1FIFISP.GT.  100.  .AM5.CTSP.tr.  200.)  Out  a 1114  ( TN.FL  AG.O.  .90.  . 
15.25.4t • , 5 • hb , 2 0 . .7.5.0.  1 

TrTUIRP-.GT.70G.  F-  OUT  S 1S14T  TN  .~Ft  JTT.t)  . . 90  . .5 . 8 ,41  .57 

lb. 13.70. .8. .0. 1 
GO  TO  999 
C 

20  iriRATE.EO.2)  GC  TO  1020 

iri01RP.LF.70. I OUT  = till  IN, EL AG.O. ,100. .3. .0. I 

Trrcrn;p.GT. 70r.ANo.cTSP.it: .50.  i out  = if iottn , fl  ag , 0 . .t  00. , 

11.5, 10  0. .7. 5. 80. ,4.  .0.1 

TrtDIRF.GT.50.. 4ND.E-I RP .LE .100.)  PUT  = 1114  ( IN ,FI  AG . 0 . . 

1100. . 2. .100. .A. .80. .4. 5.0.) 

IT  101  RP  .GT  . 1 00  , . ANT  • T ISP.LF  .150.)  OnT  r 1*14  ( IN  .FI  AG  . (1 . . 
1100.  ,7.5,100.  *5.5.8 it.  .5.0,0.  ) 


00010580 

00010570 

00010580 

00010590 

oroioboc 

000  1 Obi  0 
0001 0b?0 
0001 ObSO 
0001 0b40 
00010b50 
onnobbo 
0001 0b70 
0001 ObSO 
00010G90 
00010700 
00010717) 
00010720 
00010730 
00010748 
00010750 
0PO107bU 
00010770 

0001  07811 
0001 0790 
0001 0800 
0001  08111 
00010620 
00010830 
00010840 
00010850 
OliOl  CtibG 
1)001  0870 

fllin  1 0880 

01)010890 
00010980 
0001C910 
00010920 
00010930 
00010940 
00010950 
000109b0 
00010970 
00010980 
00010998 
0001 1000 
nnniiom 
nor,  no?u 
o o o 1 1 o 3 n 
0001 1048 

oooi 1050 
nos 11060 

0 no  11 07G 

0001108U 
0001 1090 
0001 1100 
noon  no 
00011 120 
00011130 
00011148 
00011150 

ooonibo 
00011170 
111)01  1 180 


125 


ir  (f  lsP.GT,li)0*.ANt.l  ISH.U  *i»UU.  ) C»'T  = SSSHC  IN«F|  Ato«n.  • 
lln0.a*..100..4..00..4.5.U.) 

IT  I Dl'-P  .GT  ai'OU  a ) Oil  — $ * A 4 ( I I.  . F L A 6 • 0 a a 1 U 0 a , 3 a 5 . 1 (1  0 a . 

it;?. 60., 6.0.0. > 

GO  Ti  9m1 

1020  ir  (t  lsr  .Lr  ,?o . ) out  r $*$3<  in.f l ai.,ii.  .85. . .4*<m5.  .3.  .n. ) 

IT  U)I  SF  aGT  aa'O  a a AfjD.l  a “lU  a ) Oi  l = TS$4  ( lfV.FLAG.0a.A5a. 

l(,.;%t!Cat?a‘  .60.  . 4 a U . 0 a ) 

IT  (CISF  aGT  .40.  . AND.GlSP.Lt  . lou.  1 OUT  = TS14(  IN.HAG.U.  .85.. 

T2'.'75YS5'.  iTr7»Br.TT";57ff;  l 

IT  (UIgP.GT  . 10U.  .AUl!  .1  TSI  .Lf  al-iO.  I Out  r iit4  l IN.Fl  Ag.O.  .85.  . 
13. 25.8?  . .3.4, HO.  .5.  .0.  ) 

IT  (DlSP.bT.  1 51).  . ANC.L  ISP.LF  .200.  ) OnT  = J i F4  ( I N , FI  AG  . 0 . . 

185.  .3.75, B5. ,4. ,8  0. .5.5.0. I 

IF  (0ISP.GT.200.  > ('ll  r S»A4 ( IU.F L AG.O. .85 . ,4 .25.85. ,4.5.80. • 

60  TO  449 

C 

30  irtKATt .10. 2)  GO  TC  1030 

irtLISP.t_r.150.)  01  t : S«3(  IN. FLAG.  0.  . 1 00.  . .5.100,.  .5.5.0.  ) 
IFtUlsP.GT.150. ) Oil  = it*3( IU.FLAG.O. . 100. . 1 . . 100. .6. ,0. ) 

Gi!_Ttr  vn — 

1030  iriDlSP.Lr.150.  I Ol  I r l A $ 3 < If, .TLA  6.0.  .87,5.1 .125.07.5. 

15.5.0. ) 

IF ID1SP.GT. ISO. )CUT  : A 1 » 3 < 1 r, . I L At, , 4. . 87. 5. 1. 825, 87. 5, 6. .0. I 
no  TC  «99 

c 

■ “utj irrR7tTr;r(7;n  go  Tmmro 

IF (LISP. LF. 5. | out  - S*A3( ID .PL A6 . 0. . 100. . 1 .72.92. .5. .0. ) 
ir tnisp.tr. ?o.  i out  = sa*3(In.hag.ii.«ioo.. 2.?b.b9. .5. 5.0.) 

IT (DISP.LF.40. ) COT  : **A3 ( 1 N • F L A6 . u . . 1 00 . . 2 . 75 . 85 . 5 . 8. . 0 . I 
irtDISP.tr. TOO.  ) CUT  : *S»3t  M.  FLAG.  0.  . 1 00.  . 3.5.82.5.6.5.0.  ) 
IFtCIsr.LF.2C0. I cot  = *»»3( IN.FL AG.O . . 1 00. .4.1 . 79.0.7. .0. I 
it  trisFTGT.rTrm;  t— orrr-t;tsTrt  rt.'.n:A6tTr;  .too  . .4  .r,5  rrr.5TT.5nm 

GO  TO  941 

c 

1040  IF tniSP.LF.5.)  OUT  = **»3 t IN . F L AG . 0 . • 87 . 5 . 2 .2 . 76 .5 . 5 . . 0 . ) 

TrttISP.LF.20.)  OUT  r *SS3 ( IN .Ft A6 . n . . 87 . 5 .2 . 8 . 73 .5 .5 . 5 . 0 . ) 
IriniSP.LF.40. ) OUT  I SSS3( IN.FLAG.O. ,87.5.3.4.71 .0,6. .0.  ) 

IF  t oi sp.lt; Tonvr- uirr *=- a va  tf  i t; vfl jt  Gnr.  t 87 . *r  «t ; its  . 6 7 . . 6 . ? . it  . ) 

IF (OISP.LF .800. ) CUT  : ASS3  ( IN.FLAG.O. .87 .5 .4 ,65.64. .7. .0. ) 
iriDIsr.GT.200.  ) OUT  =***3tIN.FlAr,.n.  .87.5.5.15.61  .5. 7.5,0.  ) 
GO  Tt  949 
C 

50  IFtKATF.FQ.2)  GO  TO  1050 

— irnuT-sr.-rr.TTTtr.'Fttrrr-T  - rr»3Tm.rt  Atrrtr. . ioo.  nrrrTBTTFr.irr) 

IF (CISP.GT .100. ) OUT  r S$*3 ( IN , FL AG . 0 . . 1 00 . . 5 . 3 . 65 . 5 • 7 . . 0 . ) 
GO  TC  991 

1050  IF t DlSP.LF . 100. ) OU1  = *»»3 < I N . FL AG . 0 . . 8 7 .5 . 4 . 4 . c9 . . 6 . . 0 . ) 

, ir triSP.GT.100. ) OUT  r f**3t IN.FLAG.O. .87.4,5.7,50.5.7. .0. ) 

GO  TO  999 

60  IF t RATE ,FO. 2 ) GO  TO  18b0 

rrtoisP.Lr.5oo. ) out  = 1**4 t in, flag. 0. .100. .3. .inn. .5. .90. . 

1 8 . . 0 . I 

TFtCISP.GT.500.)  OUT  = 1114(1  >1.  PL  AG.O. .100. .4. .100. .6. .90.. 

19. . 0. ) 

GT)  TC  991 

1060  IFtPlSP.LE .500. ) OUT  r 11131  IN. FLAG. 0. .60. *6. .60, .6, .0. ) 
IFtOISP.GT.500.)  CUT  = 1 11 3 t IN.FLAG.O. .60. .7. .60. .9. .0. I 

GO  TO  999 
C 

80  IFtRATF .£0.2)  GO  TO  1080 


0001  1 1911 
00011200 
00011210 
00011220 
0001 1230 
0001 1240 
0001 1250 
00011260 
00011270 

00  (TI  1280 
0001 129U 
0001 1 300 
00011310 
00011320 
00011 330 

noon  340 

0001 1350 
00011360 
or,m  1370 
moil  3eo 
000113911 

n r r,  n 4 o o 

00011410 
00011420 
0001 1430 
00011440 
0001 145u 

■ 00011467 
0001 1«70 

nnni 1480 

0001 1490 
00011500 
0001 1510 

■ otit'vi'57o 
0001153C 
00011540 
0001 1550 
OPOT1560 
0001 1570 
80011580 
00011590 
00011600 
nooubiu 
000)1620 

0001  1 b3ll 
— nTrniT64n 

00011650 
00011660 
0001 lb70 

nnni ibBo 

00011690 
CTTtmTtrn 
00011710 
0001 1720 
00011730 
00011740 
000)1750 

00011770 

00011780 

00011790 

00011800 

00011810 


i 


n n 


M 


i 


IFIDISP.LF  .5.  I OUT  - SSS  3 I IN  ,ri  AG.O.  . 100  . . ' . . A3.  . ■> . .0.  t 
iFioisP.GT.5..ANO.oiSP.ir.20.  i our  i its 5 i n ,n  n. ,i . . i co . . 

12.67.77. . 5.5.0.  1 

rrroTSP.GT.?D..AND.i:i'P.ir.5o. i Oi  t = sssSi  iE.fiAr  .i..ir  .. 
1T«  Jh  « 72  * * 6 . *0*  ) 

IP  IDISP.GT  . 50  • • AND. e I SP.LE  • TOO*  1 00  T = its  J ( I N . F i Ao . 0 . . J r i . . 

1** » . 6b « • 6 • 5 « u « 1 

IFIDISP.GT.  IDG.  .ANC.t  ISH.LE.2oO.  1 0>’T  r SSS  3 11S.I  I AO  . r . . 

110  0.  • *4  • ft  7 .60.  . 7 • « 0 • 1 

irrDISP.G7.5DG.  >“  OUT  r SSS3<In.Fla&.0..1D0..a.S4.s,..t.*.  . 

GO  TO  991 

1080  IFIDISP.LF. 5.  ) OUT  = SSS3I  IN, FI  AG.O.  .GO.  .9.  1 ,55.*.  .5  . . < . i 
IT  ( C I SP . GT  .S..ANC.D1SI'.LE.20.  I OUT  = SSS3I IN.Fl  AG. 

10.  • GO  . t4.fl%19.5t5.biO.  ) 

IT (DISP.GT.20. .AND.ulSP.LE.50.  1 OliT  = SSS  J ( 1 N . t L Af. . 

' IB. .607  »5TSB  • 1 3 . 0 >6 . . 0 . 1 

irtUISP. GT. 50. .ANO.uISP.Lt. 100.1  OUT  = SSSJ  t IN  . F t At- . 0 . . -0  . . 
1G.3.G.M .6.5.0. ) 

iriDlSP. GT.lOU.. AND. LISP. Lf  .200.  I OUT  = SSS  1 1N.F  l Ai. . 0 . .*•  0 . . 

17. . 0.) 

IF I 0 1 SP .GT .500. 1 OUT  = SSS3 ( I N.FL AG . 0 . . 60 . . 7 . . 0 . . 7 .5 . 0 . I 

GD  TD  999  

101  iriRATt.tQ.P)  GO  TO  1101 

ITIDISP. or. 10. 1 OUT  = *lS3(IN.FLAr..t).,100..1.,96.T.‘  ..a.  1 
IF  (U1SP.GT.10.  .AND.OISP.LF  .55. 1 OUT  = SSS3  l ! N . F L Af. . u . . 1 00  . . 
15.  .93.3.6. ,0. 1 

IFIDISP.GT. 55. 1 OUT  = SSS31 1N.F  L Ao • 0 . .100. .3. .90. • 7.  .0.  i 
GO  TO  991 

1101  IFIDISP.LF  .10.  1 OUT  = SS  S3  ( I N . F L AO  , il  . , 70  . • 5 . . 65  . . 5 . . 0 . I 
IFIDISP.GT. 10. .AND. DISP.LE .25. 1 OUT  = SSS 3 I IN. FLAG. 0.  .A* . ■ 
12.75.76. • 6 . • 0 • 1 

ir  (DISP.GT.55. 1 OUT  = SSS3  ( IN  . FL  AG . il  . . 1 00  . . 3 . . 90  . . 6 . 5 . 0 . I 
GO  TO  999 

991  ir(PATC.LO.l)  GO  TO  999 

IFIRATC.rn.31  GO  TO  993 

IFIKATC.C0.9 I GO  TO  599 

993  PCDSMX  : 1 2 . /DSPEECs 1 00 . 

995  IFIFLAG.  CO.  0 . ANO.OUI  .f-T  . HCOSMX  ) OUT  = PCCSPX 
TFIFE  AG . EU.T.TTND . TN  .GT.  PCDSMX 1 OUT  = 0. 

GO  TO  999 

999  PCDSMX  = 5./OSPCCD*100. 

GO  TO  995 

IF  CAICULATFD  OUTPUT  OF  Sf  A STATC  VS  PFRCEM  Of  S I GN  SPF  ( t 

T IS  LC  SS  ~TTTAN  "TETTO  " .STT  VALUE  COUit  TD  7FTTC 

C 

999  IF  I OUT .LT .0.1  OUT  = 0. 

SPOSSS  = OUT 
SSSPDS  = OUT 
RTTURN 


IH I )Wt 
• ••  1 9 1 #. 
•Mill!  . 

MStlltf 

MF'Jl* 


•MWI* 

Mint* 

• <*•1/41  * 
ININf. 

• Ml  TIM 
IMIIMI 
Milt/9* 

iminm 

. . . . yy. . 

•MUM. 

•mum. 

IMWHt 

MMNM 

IMUUl 

inimt 


C PROPOS 

C FINOS  THE  PROGRAM  PR0BABII ITT  OF  SUCCFSS 

c 

C FOR  A GIVFN  FLOW  CHART  OT  GROUPS.  FINOS  ALL  POSSTBlE  PATHS 
C (I.C..  SC0UCNCFS  OF  TASKS)  THAT  1)0  NOT  VIOlATf  TIPC  AKL 
T — FOCI  PATTPir. 'FINDS  TTTT  F1TR  P90BAPTL7TT  OF  mCFTSS  IPTHPPS1  rrw 
t EACH  PATH.  COMBINES  THE  PATH  POS'S  TO  PRODUCE  ThE  PPOPOS. 

C 

c limits: 

C MAXIMUM  NUMBER  OF  GROUPS  =40 
C MAXIMUM  NUMBER  OF  NODES  IN  FLOWCHART  s SO 


MMNII 

••••••?- 

• •••Ml. 
MMM*I 
••••MS. 

itmir 

••••««»• 

• ••MM 
MMMM-i 

• ••Ml  f 

•MMIM 


1 


MAXIMUM  NUMBER  01 
MAXIMUM  MjMrI k oi 


son  i n s combi i uo  = 1000 
nopls  in  a SINOir  SORT  IF  s loo 


SUMROl'TlNf  SPKPOSIPUFMY  ) 

IMPLICIT  HI  AUA-/I 

pm  or  R r . J,K  ,PR0VN(J  aPRGPNOaNXOVNOaNXGPNO 
INTI  i,f  R LSOVGO  aLSGPgO  t ML  O I N aNNODOV  *1  NKSGPaNIIMNPS 
TNTrcr  R NNOnr  ,PTH,Pshi  ST  aNPATm,GPpu*x,POB'P|  0,MXGP| k 
INTI  of  R tPAC  K , SCfROUl*  • tINST  , $NOl  r « %POP  • %TCP  • SHOVNn 
INTTGrR  GROUP, INST •NOrr tGPOAT 1 • IPul M • IPHFUC aNIASk 
INTI  01  R L OC  A TN  , NOCf  1 a NODI  i* , T ASKNO  *R  ATT  »GROl  PI 

i NTrorw  ipisp ,c  asnum , trspn , ipthfu 

INTI  Of  R NPRTI P,NPTOUT aUASGRP 

TwrrGrR  vTsrjrn . towttp  •tphttp  . sspdtp 

INTLOIR  MASTER aMAsTsK »NMST SK 
INTI  Of  R NTAYS • IMR ATI  . T V T SON . I MB TSh a NM I MTK 
INTI  01  R COUNT aMTASK  «f  I Ao* I * a H A 1 1 1 • TAShNl 
PATA  NMSTSK/1S/ 

PI  Ml  Ns  ION  V1SDS1I3..U  a V I .SUSP  <3,51 

ni mi  ns i on  ssrppncn)  .cwsrnt**)  AsrcrNG<4i  ,srrcr(4i  , mi  sir « u i 

PI  ML  Ns  I ON  STCGAl  (4  1 aHPUT 1 1 ( 4 ) , I UE  I R U 4 ) a l NDUR ( 4 1 aRANGF  (4) 

D!  M| NS  I ON  MOT  ION (4 ) • T NR  AD (4 ) .ruriRP<4) a TNG! 4) 

Pt  Ml  NS  I ON  Sll  | U(4  ) ,Ll  TNAM(R  I ,M|  ULRT  ( 4 ) 

riMCNstoN  ccu<?>*nrufi)ALsn<n,MNiitn,Tw(is) 

DIMENSION  NNOPl <P7I 

P TMpNS I ON  UNAJBMI lOoO) tPHPOS I loon  > aPATHTM ( 1000  I A IPTHFUIlOnOl 
r T M|  NS  ION  C A T A ( 70 • 4 o 1 
PTMfNSION  TBOSMX(ps) 

U I M| NS  I UN  MINT IMf^O ) fMINFUT  (SOI 

COMMpN/rSHPwN/BTR  aBSUI  ST  II  00  1 , T TM|  ST  I 1 0 0 ) aF  UR  ST  ( 1 00  ) .PROl  ST  MOO) 
t PMMON/GPnA  T A /Of’PA  T 1 ( 4 0 , «’ ) aGPPAT7|40  ,10) 

CnMMPN/V//VISniSI 3,3) 

COMMON /MNrOM/i  RAC  a V I SO TM  a TOIrfUT H a DBHB  T M 

COMMON /PAR  AM/ IPISP,  II  SBP  aCT  TNAVaSSAVGa  SPF  FT  aMFULRT  a TOWSPO, 
l CC a Of  aLS aMNa  Tw 

COMMUN/CHAR/L  TPM  aPI  AM.PTPL  «CRAI  ,SSPRMM,nr  Ch  a USf  CP  a 
1 rUtlCP*C  ARGCI  aTOMPSI  aSUHV  1 V aHI’INST  aBPPTON aMPTNKT  a 

? rwsrr af-ng aST  tingaSt  err  .totsfc .srrGAi  .mputu  . 

3 ru  CRT  aFUFI  Up  aL  NUUK  a RANGl  a MO  T 1 ON  a TNM  AP  a SSBPTR 
PAT  A V I SOS 1 / • 9 * .1a0.a,7aaPa.1a.3i.3a.?/ 

TATA  V ISDSP/ • VIHY • ♦ •GOOD*  • • GOUl  ••  t • l.OP'.'  •• 

X ' 10  S'l)  ' a • • , • I AIR  • / 

PI  Mr  NS  ION  OVCNMX  ( SO  a50  > a GFPl  MX  ( *i0  , » 

data  nvrNMx/rsuo*OA / 

PATA  TPTBRM/0./ 

PATA  NNOPT /7  a 3 a 4 a 3 • o • s • 3 « 3 a 4 a 4 a P a A a P a 
X P a 4 A 3 a 4 A 6 / 

HTML  NS  TON  m AS  Tt  R C PS  a 4 ) aC0UNT(PS,4)  AT0TrNT(P*,«4) 

J'IMINsIuN  I M | #4)  «1  MR  ATI  ( 40  ) , JMTsKN  I 40  1 a IMPTSK  ( 40  a 40  » 

P IMF NS  I ON  MTASKI40) 

PATA  MASTI R/19a19aP3*0«  13a14a14a 

X 1 •)  A 1 R A 1 f>  A I 7 A 1 0 A I |<  A 1 * ♦ ()  A 0 A V A 

Y 11  a 10a1P«PU»0a  Pa  t a **  a 1 a f>  a 7 a 
/ 5,7'3'3«*>«5t7«9«9'7«3t'»«7«7,'i,6A7/ 

NAM| L IST/GRPUP/OATA 
DATA  PATA/bOIWO./ 

PTMfNSION  T ASnNM(b  ,«*?>•  4 ) 

DIMENSION  USKNPCOaPSaP) 

P I M|  NS  I ON  T ASKN3«b  ac*»a  1) 

PIMrNSION  T ASKN4  t b a 1 3 , 1 ) 

I OU1 VAl f Nf  I ( T ASKNMt  301) a T ASKNPf l ) I 


onnooipo 

00000130 

00000140 

OAOOOUO 

oooooioo 

00000170 

00000100 

00000190 

ooonopoo 

nonoopio 

onoooppo 

OOOO0P3O 

00000740 

000002^0 

000007#.0 

onnnoPTO 

00000700 
00000790 
00000300 
00000310 
000003PO 
00000371 
000003PP 
00000373 
00000330 
00000331 
00000340 
000003*0 
000003#i  0 

noon  o 3 7 o 

00000300 
00000390 
00000400 
00000410 
00000430 
00000431 
000004 3P 
00000433 
00000434 
0000043*- 
000004 3 b 
000004*0 
00000400 
00P00470 
0000040 1» 
00000490 
00000*00 
00000*10 
00000*70 
00000*30 
00000*40 

onnoo**o 
00  0 0 0?)  1.0 
00000*70 
0 0000*100 
onooosQo 
(1  n o 00400 
ononoMP 

OOOOOhPO 

OOOOON30 

00000840 

nonooGso 

nooooboo 


r 


EQUIVALENCE  ITASKNMUM  I .1ASKN3I  1 ) I 
EQUIVALENCE  ( TASKNMI  32  3) . TASKN4 ( 1 ) I 


OOHOOb70 

oonoouao 


OATA  TASKNM/ 

00000690 

I 

•Dash1  i • ett  i , t 

TT* 

•7T' 

n 

00000700 

1 

• INTE ' . 'ROIC' . 'T  '.' 

' . ' 

• • • 

• . 

00000710 

I 

136*0. . 

00000720 

1 

•ESCO'.'RT  '.'  '.' 

' . ' 

• . • 

• , 

00.100730 

~T 

1 IDlN'.'Tlr  Y*  , • CRm  * . *F  T 

' . • 

• • • 

• . 

00000740 

l 

•lDEN'.'TIFY','  Flt'.'ET 

• . • 

• • • 

• . 

00000730 

r 

'PAIR1.  '61  E|T  r, ' 

E,  ' 

* . • 

*. 

00000760 

i 

•SEAR'.'CH  F'.'OR  M.'LEET 

• . • 

• . • 

• . 

00000770 

i 

•SEAR'.'CH  F'.'OR  S'. 'HIP 

• . • : Fn 

•••UNO  •% 

00000760 

i 

•TRAN' . 'SPOR* . 'T  (to'.'UIH* 

• . 'I  NT 

• . • 

• . 

00000790 

i 

•TRAM* , 'SPOR * . *T  PL'.'OPLE 

• . • 

• . • 

• • 

00000600 

i 

•TRAN'. 'SIT  '.'  '.' 

• . • 

• . • 

' 9 

00000810 

I ^6*0.7 

DT) 1)80820 

DATA  TASKN2/ 

00000630 

“I 

'SEAR' ,'CH  D' . 'STR  '.'UNIT 

'.'!  Fn 

'.'UNO  '. 

00000840 

1 

•SLOW'.'  FSC'.'ORT  ',' 

• . • 

* • * 

» 9 

00000630 

1 

•SrAR'.'CH  T'.'OR  R'.'COPL 

• . • : Fn 

'.'UNO  '. 

00000660 

1 

•SLOW'.'  PAT'.'ROI  '.' 

• . • 

* • * 

* 9 

00000870 

r 

'TDLi  'V  T*  t,. 

EJf 

ri1 

rV 

00000880 

i 

120*0.7 

00000890 

DATA  TASKN37 

00000900 

1 

•bOAH'.'D  '.'  '.' 

' . • 

* . * 

• i 

0000091u 

1 

'FIGR'.'T  ri'.'RT  F'.'HOM 

• . 'CG  V 

• . ‘cssi  • • 

00000920 

1 

•FGHT • • • FIR'.'r  On'.'  OTM 

' . 'I  R v 

• . •FSSl * • 

00000931) 

r 

'GtNT* « *RAl  ^ 9 ’ ,^STAN* 9 'IF 

i , i 

» , 

00000940 

i 

•INSP'.'ECTI'.'ON  '.' 

' • * 

• . • 

• t 

00000950 

i 

•LOAD','  EQU'.'IPMC'.'NT 

1 . I 

• . • 

• • 

00000960 

i 

•LU1  T • , 'EH  • . • • . • 

* « * 

• . • 

* • 

00000970 

i 

•LAUN'.'CM  S', 'WALL'. • BOA 

• • *T 

• . • 

• . 

C00009B3 

i 

•MOM'. 'TOR  '.'ACTI'.'VITI 

•••IS 

• . • 

• 9 

00000990 

ON  H', 'OAPU' 
CN  S'.'CrNE' 
DATA  TASKN47 


ASS'  , 
COiA»  , 


BOA'  . 
Olo*  . 
rroPL». 
SKA* . 
SPl  • . 
• . 

ER  S'  , 
QUII”  . 

if  r • , 

ippt.  • . 

ip 


1 'RETR' ,'TEVE' 

1 'RETH'.'TEVE' 

~ i ' 'RTsr * . nr  Pr 

1 •RETH'.'IEVE' 

1 'STAR' , TOUT' 

1 'SEI/'.'E  ' 

I 'TAKE'.'  WAT' 
t 'UNLO'.'AD  L' 

~1~  'WORK'  .'TO IT* 

1 ' wCRK  • . * E(.U' 

1 'WORK'.'  EtJU* 

1 12*0./ 

DIMENSION  r.RPMM4.20> 
EQUIVALENCE (GMRHWI41 I . 

ORTirGHi’riv/  — • 

1 'ASST*. 'ST  • 

I *E  SCO ' . 'RT  • 
l 'E Is).' . *T  f I • 

1 'IOEN'.'TirT' 

1 'lNSP'.'ECT  • 

‘"I  ~'Ti07JTrV  TOR  — r 
1 'PATR'.'OL  • 

1 'RFSC'.’IIE  ' 

1 'RISC'.  'IT  R' 

1 'SAR  '.'SEAR' 

TATfc  r.RPNW 2/ 


'RE 


•I  TUh 
•CH 


I ST  A * 
RANH' 

RO  IN ' 
ELIS' 

r - • 

II  b* 
C IN' 

• 

AMRL  ’ 
RENT' 
ROW  ' 
NT  S' 
FIX' 


•NCF 

•ER 


•G  Pa 


•CAT 
•T  VE 

9 

•E 

. 

'SR  B 
• OR  I 

•ED  R 


RTT 


SSL 


OAT 

FT 

OS 


GRPNK2 ( 4 • 1 0 ) 
r,HPNw?i  1 1 ) 


onooioio 
nnnmopo 
onooioso 
00001040 
ooooioso 
omoiogo 
onnnui7u 
nonoiOHO 
ooooio9u 
nnnonoo 
onnomo 
00001120 
nnnoi  130 
onnni 140 
oooonso 

00001  ISO 

non 01170 
nonoiiRO 
nnnnii9o 
00001200 
00001210 
00001220 

00001230 

ooooi2»o 

ooooi25u 

(u.noiPbu 

00001270 

00001200 

00001290 


129 


1 •SLAW 

. 'CM  1 • , 

• l r r t • 

• 

• 9 

00001300 

1 'St  12' 

• »r 

• • 

• 

» 9 

00001310 

1 'srNs' 

« * OK  S • . 

*f  APt  • 

u- 

» 9 

no00l320 

1"  'STai  • 

. MiHt 

• t 

• 

* 9 

* " " ' 

nnooi 33o 

1 ' S T I A • 

,'M  • . 

« • 

• 

» 9 

000013HO 

1 'Tran' 

. ' SFl  H • . 

• F Uu  • 

• ip 

# 9 

00001350 

1 * TK  A . * 

, * spok  • , 

* t r « • 

•Hi- 

1 9 

00001360 

1 'WORK' 

.'  t(,U*. 

* * 

•Ivt 

* 9 

00001370 

1 8*0./ 

00001380 

ci  t ha  res 


130 


131 


RE  AU  Cb  t HCGRAM  AI.L  SCri.fHIC  HIIREiFh 
FORMAT  • CG  PROGRAM::  FIT* 

• SCENARIO  NO.=M>  • 
RrArrtTT.i  30TrR“CGRM~.scrr,KC 
E ORNAT  I 12X  * AH  / 1 *4  X .It) 

«DIll IF . 131 )PRCGRv,scrNNO 

F OHM AT ! • 1 • » • • • SCI  CAR  10  DATA 
1 IX, 'SCENARIO  NO.r'.i;?) 


//lx.'CG  PROGRAMS* .AH/ 


l 

l 

C 


125 


rtm;  Tnrrm^  rr*-r 

FORMAT  • MAXIMUM  TIFUIRH'.h' 
RUFRF  TIMr  TS  IN'  HOURS 
RF  AP ) 13 . 125 >MxI IMF 
rpR»ATtlX.13X,rG.l) 

«mn  (g.i?7)mxtim( 

FORMATTIX.  'MAXIMirM  TIVFsT.r6.1T 


' 177  ■ 

(. 

C Rt  AO  FRACTION  OT  RANGE  THAT  CAN  EE  USED 
L FORMAT  • MANGE  E RACTIUNsF .FF • 

RFA0(13.135)RAN0FR 
135  TORMAT  ( IX  . 1 *-X  .F  H.2  ) 

sTTiTrrG.iTnTrANGrR  “ ■ 

137  FORMAT ( 1 X , 'RANGE  F R AC T I CNs * . T H , 2 I 
C 

C READ  NUMBER  OF  I.ATS  IN  oFERATlON 
C FORMAT  • NO.  OATS  OF  CPER A T I ON=NNNN* 

HEAP! l*.505)NnATS 

-JUT-  rpRMATrTTX  ,T9T  * 

WRITE  I 6 • 506 ) NDAYS 

50F.  FORMAT!'  NO.  OATS  OF  OPERATIONS' *TH ) 

t 

C REAO  THE  NUMBER  OF  IMPORTANT  TASKS  AND  THE  IMPORTANT  TASKS 
C FORMAT  • NUMBER  0)  IMPORTANT  TASkSsNN' 

-FORMAT 

RsRATE  OF  T ASK  1 T = T ASK  NUMBER!  USER  CAN  INPUT  IMPORTANT 
tlO/LINF)  AFTER  Hi  INFUTS  THE  N1IMPFR  or  IMPORTANT 


C 

C TASKS 
C TASKS. 

RFAOdJ.BnUNMIMTK 
801  F0RMAT(27X.I2> 

RrApivr-.ormTiMRRTCtTi  .tmtsktttit ft?i  .nwtmtkt- 

507  FORMAT! (10I1X.11.I?) ) ) 

00  520  T=1 .NM1MTK 

520  MTASM  I (sIMRATE  I I » *1C0*  IMT 'KN  I I) 
WEITE16.5081NMIMTK 

508  FORMAT!  • NUME'LN  OF  IMPORTANT  TASKhs',12) 


nnoniHoo 

nnnniHio 

00001H20 

0 n n n 1 h 3 0 
oonoiHHU 
cooimso 
00001R60 
D0001H70 
OiinoiHHu 
nnnoi H90 

00001500 

onnmsio 

00001520 

00001530 

0O0015H0 

00001550 

00001560 

00001570 

00001580 

00001590 

00001600 

00001610 

00001620 

00001630 

000016HO 

onnni650 

00001660 

00001670 

oooci680 

00n016R0 

00001700 
00001710 
00001 720 
00001730 
nnnoWHO 
nnoni75o 
00001760 
00001770 
00001780 
00001790 
00001800 
00001810 
ooooiepu 

00001830 

000018HO 

00001850 

00001860 

00001870 

00001880 

00001890 

00001900 

00001910 

00001920 


1 3 0 


J 


wPITf (6.802) (Ml  ASK! 1 > , 1:1.NMIM1K ) 

802  rflHHflT  U10(1XtI3))l 
UO  bUS  I=1,NMIKTK 

tr(iHfiTsrnT).ru.o>f,o  to  *>io 

I«PTSK  ( IMTShNl  1 ) > IMRATF.  I I > ) = 1 

509  CONTI  NOT 

510  CONTINOT 

c 

L RE AO  NUMBFH  Of  I, OlltS 
C FORMAT  • NC()ES:MJ' 

RF  AO  I 13.123INN000V 

123  rOHMAK7X.I,  1 
nRITl < 6 . 126  I NNOOOV 

126  FORMAT ( * n0F)ES='.I2) 

C 

C RCAO  CUNNFCTICN  MATRIX 
C FORMAT:  • P.PP  P.PP  P.PP  ...' 

C THF  NUMPER  of  PHOBARIL ITICS  PFR  l INF  : THF  numrfr  of  nodes. 

C IF  >15.  ust  TWO  LINES  kill'  15  PH  OH  AH  1 1 ITIFS  ON  THE  FIRST  LINF. 
RTAD ( 1 3 . 1?R ) 

124  FORMAT  C I 

wRrrrifi.iPoi 

120  FORMAT!'  CONMCTION  MATRIX:') 

00  1 OR  I = 1.NNCC0V 

READ) 13. 107 ) ( CVCNMX I 1 . J > < J:1 .NNOOOV I 

107  rORMAT<15(lX.F4.P) ) 

WRIT!  (6. 1 07) IOVCNMX I 1 . J) . J:1 .NNOOOV ) 

108  CTTNT1NUF 

C 

C READ  GROUP  PL  AC! NT  NT  MATRIX 

c formai:  • ggii  r-Gii  ggii  ...• 

C THr  NUMBER  OF  GROUPS  IER  LINT  : THF  NHMBFR  OF  NODES. 

C IF  >15.  USt  TwO  LINES  WITH  15  GROUPS  ON  THF  FIRST  l INF. 

Rr»cn  j,i?tt 

WRITl(6.1?l) 

121  FORMAT!'  GROUP  PLACLMFNT  MATRIX:') 

DO  110  1:1, NNOOOV 

RFAn< 13.117) IGPPLMXI I . J) .o:l .NNOOOV I 

117  F0RMAT(15(1X.IM) ) 

WRITE  (6,117) TGPPLMXCI . J) . J:l, NNOOOV I 

118  CONTINUE 
C 

L Ht AO  GROUP  DATA 

REA0!13. GROUP) 

00  100  1=1 .25 


00001S30 

nnnoisso 

00001950 
0 Of)  01  96  0 
00001970 
00001980 
00001990 
00002000 
00002010 
POOO2020 
00002030 
00002040 
00002050 
00002060 
00002070 
00002080 
00002090 
00002100 
00002110 
00002120 
00002130 
00002140 
00002150 
00002160 
00002170 
00002180 
00002190 
00002200 
00002210 
00002220 
0000223G 
00002240 
00002250 
00002260 
00002270 
00002280 
00002290 
00002300 
00002310 
00002320 
00002330 
00002340 
00002350 
00002360 
00002370 


* ~ 

OP  TUT  J*TTT8 

00002380 

GPDAT2! I . J):DATA< J42, T ) 

00002390 

101 

CONTINUE 

00002400 

100 

CONTINUE 

00002410 

DD  1031:1.25 

00002420 

DO  104J:1 .2 

00002430 

GPUAT1TT  . JI:CmTU  . I ) 

0000241*0 

104 

CONTINUE 

00002450 

103 

CONTINUE 

00002460 

WRIT!  (6.12?) 

0000?470 

122 

FORMAT  I • XGROUP  DATA:*) 

00002480 

00  106  1=1,25 

00002490 

iT  (6^f)Atl  ( 1 < 1 i if0«0  1 03 

00002500 

WRITE (6.109) (GPOAT1 ( 1 , J ) . J: 1 , 2 ) . ( GPDA T? ( I .Jl . J:1 . 18 1 

00002310 

109 

FORMAT (IX, IP, IX, 12. 18 IF7.2) ) 

00002520 

106 

CONTINUE 

00002530 

10S 

MR  ITE (6,129) 

00002540 

129 

FORMAT  ( • AFNO' ) 

00002550 

131 


c 

t reao  number  of  printouts 
C FORMAT  • NUMBER  OF  PR  IN  TOllTS  = NN  • 

NE‘ADUy.Y40>NPTO'UT 

140  F ORMAT ( 21 X * 12 ) 

WRITE (6,141 )NPTOUT 

141  FORMAT!*  NUWBFN  OF  PH  I NTOUTS= * . 1 2 ) 

C RE  AO  OUTPUT  FORMAT 

C FORMAT  • OUTPUT  FORMATaN* 

C FL AG  = 1 FOR  FULL  OUTPUT 

C riAG  = 2 FUR  PARTIAL  OUTPuT’.NC  SORTIES  PRINTFO 
RFADI13.142|FIAG 

142  rORMAT(15X,U) 

WRITE ( 6 • 14  3 I Fl AG 

143  FOHMATI*  OUTPUT  F0RmAT=*i11I 

~ '~Bn.INB‘lT~  

c this  rewind  allows  user  to  hun  mouel  for 
c many  craft  TOR  THE  same  scenario 

C CONVERT  FUEL(TONS)  TO  FUEL (GALLONS) 

MXFUEL  =FUf LC  P 
MXGALSiMXFUE  L • 335  • wKAA'GF  R 
C C Al  CUE  ATE  TPOSt  TASK  PROoAPILITY  OP  SUCCESS! 

DO  292  1=1 .NMSTSK 

TPOSMX ( I ) =Cf 1 1 )»DF ( I ) »MN ( I)»LS(I)*Tw(I) 

242  COM  INLE 
C 

c 

t" 

C INITIALISE 
NPATtiaO 

L 2ER0  OUT  TIME.  FULL  AND  TASK  COUNT!  NS  AFTER  A CRAFT 
C HAS  COMPETTrC  AIL  F'OSSIuLF  SORTIES  IN  A SCENARIO 
TOTIMsO. 

Tnrrur=o. 

DO  423  1=1.25 
DO  424  J=t.4 
T01CNT I I • J ) =0 • 

424  CONTINUE 
423  CONTINUE 
PTUTlWiO. 

PTHFUE  =0 . 

PTHPRn=l . 

PTR  = U 
TOTPKB=0. 

DO  11  1 = 1.1(10 
PSHLST!  T F = 0 
TIMLSTI I 1=0. 

FUEL  ST (11  = 0. 

PRBLST ( I ) =0 . 

11  CONTINUE 

DO  12  1=1,3 

• BIT  1?  J=1 ,3 

viscisi i . j)=visnsi ( i . ji 

12  CONTINUr 
l 

c 

C GET  MINIMUM  FUFI  and  TINT  PATHS 

CALL  1MTNPU  (NNGDOV  , DVCNMX  , GPPLMX  , MINT  IM  .MTATDP 1 
C 

c 

c 

c 

c riNO  paths  i son  ins)  Through  Tut  flowchart 


00002560 
00002570 
00002500 
00002590 
00002600 
00002610 
00002620 
00002630 
00002640 
00002650 
00002660 
00002670 
00002600 
00002690 
00002700 
— OOff0270l 
00002702 
00002703 
00002020 
00002021 
00002030 
00002040 
00002841 
00002642 
00002043 
00003210 
00003220 
00003230 
00003240 
00003250 
00003260 
00003270 
00003200 
00003290 
00003300 
00003310 
00003320 
00003330 
00003340 

nnno-3350 

00003360 

00003370 

00003300 

00003390 

00003400 

0000341TI 

00003420 

00003430 

00003440 

00003450 

00003460 

00003470 

00003400 

00003490 

00003500 

00003510 

00003520 

00003530 

00003540 

00003550 

00003560 

00003570 

00003580 


c 

00003590 

c 

00003600 

C STAHT  AT  OVERALL  NODI  1 

0000361 0 

PROvr.r  = oooool 

nnoo36?o 

L SOVGO=  0 

00003630 

CALL  JPuSlilOOOOOl  .0.  .0.  ,1.  ) 

00003640 

C 6(T 

MFXT  OWFRAll  MODE 

00003650 

10 

IF  (MINT  IFMPKOVNDMPH’T  IM.6T.RXT  IMF  X.C  TO 

90 

00003660 

IMMlfcFUC  I F'ROVMD  I ♦RTPFUL  • GT  • PXGALS  INC  TO 

90 

00003670 

GTGlMrLR'OwGO’Fl 

00003680 

IT  IlifGlM.GT.MMOPOV  K-OTO  90 

00003690 

CO  ii  JzPFGIM* MMOOC v 

00003700 

OVPROF(  = OVrNMi  IRHOVMU.  J 1 

00003710 

IF (OVPROP.GT . 0 . )GO  IL  24 

00003720 

?2 

CONT1NUF 

0000373(1 

~0VPRCT1=1  . 

oonfiS7MO 

GOTO  90 

00003750 

C FCUNr  AN  OVERAU  NOPE  Tu  f.O  TO 

00003760 

24 

NXOVI'.n  = J 

00003/70 

C GrT 

THIS  i!nK»S  GROUP  (If  ANTI  AM)  START  AT  GKUUPNODF  1 

00003700 

?0 

LNKSGPsGHPLfr X t PROVNu t NXC VhO > 

00003798 

If1  (LNK<;GP.r0.0)G0To40 

00003BD0 

PRGMND=100*1  NKSGP  ♦ 1 

00003810 

IRGPGO-O 

00003020 

CALL  tPUSH  1 1'RGF'ND  « 0 • .0.  .OVPHOul 

00003830 

PTHPRR  = PTnPF<n»OvPRCt 

0000384U 

OVPROH= 1 • 

00003of)G 

t GET 

»jnCT  GRDUP^WX  TN  PRF SENT  GROUP 

00003060 

60 

OLGINrSNOnr  iLbbPGOMl 

0000 3 87u 

GRCUP:lliRfHJ(  < PRGPMr  I 

00003880 

1MST  = $INST  U’HbPND ) 

00003090 

NCDE  = tN'OCE  ( PRGPMD ) 

onrns9oo 

IF (GROUP. G(  .90)00  Tu  M9U 

0000391 U 

wnwND^Tiwnrrrc.Goun 

rono39?G 

GO  TO  041 

0 0 0 0 3 9 3 U 

090 

NUVMDS=4 

00003940 

esi 

IF  (HI  GlN.GT  .MUKNDS  H.OTO  MG 

0000345U 

DP  61  J=BrGTM.MLlWMDs 

0 0 0 0 39b 0 

CALL  JLKPATI  GROUP  . 1UST  .NODI  , o ,1  RPmOH  . 1 K T I PC  , l KF  OF  l 1 

00003970 

E “ 

CHEEK  FDR  TTWF  AMP  RIF'l 

00003900 

I F ( LRPROH.GT.O.  . A.mC  . (PTHT  IMtLKT  1P1  I.LF 

.*XT  IM 

00003990 

1 .ANF.  (PTMFUF  + l KFOFL  ) .1  F . RXl-ALS  1 

GOTO  6? 

OOOOMOOO 

61 

CPMT INLr 

00004010 

GrTD  0 0 

0(1009020 

C FOUNC  A GROUP  M)Pf  TO  GG  TO  IN  PRlSfNT  GROUP 

00P04C3O 

T? — - 

MEDEi'J" ' ~ 

00004040 

NXGI’NP-  $P  ACK  < GROUP*  INST  tNUM  ) 

00004050 

CALI  iPUSIKMX&PNO.LKTIPr  .LKTUFL  .LrFrCHI 

00004060 

PTHT IMsPThT IM*LKT 1*1 

110004070 

PTHFUr  = PTHFllE*LRFurL 

00004000 

PTHF'RIUI'THPRb»LKPRO>( 

00004090 

-C'TTJT  TF  ENC  OX  PATH  'TXr'GRPUP 

n o fin  4 1 o o 

1 F ( NODE  . C Q . 2 .OR.  MuDF.lU.9IGC  TO  4n 

0110  04  1 1 0 

PRGPi^r=NxrrNi> 

oono4i?o 

LSGPGO=0 

G 0 0 0 4 1 3 0 

GOTO  60 

00004140 

C MO 

GnnuP  FOR  THIS  overall  link  -OR-  FFNFSHFH 

This  l INK 

00004130 

‘TC 

TrTFnrnvND.rc.ooono^iGrTc  4? 

0000416V 

LSOVGO-O 

00004170 

PROVMD  = MXOVFjD 

000041MV 

CALL  SPUSHINXOVNO.O . *0. tOVPROh) 

00004190 

PTFtPPn  = PTMPRP*OVPROtj 

00004200 

GOTO  10 

00004* 10 

: 
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C I U'NF  A LOMPLr  II  F ath 
‘It’  C/'LL  IPuSMI  000002.  U.  .0.  .OVPROM 
PThPRMPTi.PM  »UV>  R ( * t > 

goto  poo 

✓ oi  cali  turn’d  i t t lu.pc.i'i  tm.pcpf  ui  .('OW'io'i 
FTpPRI*  = F>THFl.t/POPPHp 
4‘>  1U  1T.TP  I 0 > ,(.t  . 1UC0C  It  PTC  8? 

C »l  I T *•  AC  K TD  P V I HALL  NONE 
l SCVCCXtlXOVNO 
"So'Tfi  lTi 

l WIMT  »/lCh  TO  GliuUP  MOOT. 
hP  PRC9NP  = ili0vN(.'(0) 

Cl  TO  8 0 

C TCP  IT  A GROUP  I OLE.  MihT  TO  POP  U 
60  CALL  tPOP  (CePf'f  [i.FCt'T  IM.POPFTr  .POFPRP) 

PTiiTIVirTHTTP'-TCFTT" 

I TUI  Ul  = PTHF  Ilf  -POPF  l L 
rTPPRri:PTHPrui/POPPRc- 
IT  ( $1.1  LF  (POPPFl.  I .to  . 1 I GC TG  4 4 
l TGPGr  = PT7FPF  £ 

PROPOP-iTCP t 0 ) 

~GPTC  PC  — 

L A1  OV'Mftlt  NONE  ulTH  tlU  OVERALL  NUtifS  Til  GO  TO  -OR- 

c o ith  pot  rr.rjur.ii  time  pr  ruru  trrT:  Rri»r)i/F  top  cvfrali  i.oor 
1U  CALL  JFOPIPPPI LO.PCPT IV.PCPFUL .POPPR-M 
PTPPRPrPTMPRB/POPPRV. 
ir  (PtiPPru.f  a. oooooi  x r io  4949 

unni  Gr^emT  ■ ■ 

iixcvr.nspoppf  u 

iriTTCPlO)  .i.F  .10000  ICCTC  HP 
phovnp=iTop  i o i 

GOTO  10 
t 

t rcuNU  ft  path:  i i mi  path  lata  ane  prim  it  out 

c 

POO  NPATH=NPATP+1 
iPHRJFsPTFinjC 
UNAOJP=l . 

Ur.AOoF=ljNAUvJp*PRPLST  ( I I 
209  COTITTNUr 

UNA JPP I NP  ATP) rUNAOJP 
TPTPRP  = TOTPPB  + UNAP  J1 
C STPHE  SOHTIl  Tilt  AGO  Fill  IN  ARRftTS 

P7VTHTPTTJTT‘ATTn^TTTPTTT3T 

IPTMf  U (UPftTP  I = I PUFUL 
PO  3000  NPRTEP-1 .NPTOUT 
t WHITE  UtftniNG 

IF  (FL  AC..EC.1  1WRITE  (6.P10  1PR0GH4  .SCENNEl 
P10  FORMAT ( *1 *////30x .ft4 . * SCENARIO  ’.IP) 

mriAG.nj.T  rwFnTE-nr.957NT*mr 

45  FORMAT ( IX ,28X , *SORT 1L  NUMbFR  ’.14/) 

IF (FLAG . ED  ♦ 1 1WRITE  C o « 21 1 1 MXT I ML  *CF TN AM , R 6NGF R . IOTSP . 

X ( VI  SOS?  t VlROTb.  I I , 1 = 1 . 31  • ICSHL  * Ss  A vG  .FUFRAC 
?11  roRMAT(/13X. • OPFRAT  TONAL  RF OU IRF MFN T 9 : • , 1 1 X , 

1 'SFLFCTEn  CRAFT  : V/l  3X  . • MAXIMUM  DURATION  *.F6.1<*  HOURS* 

? nr.-eaR/iix. 

3 • RANGE  FRACTION  * .F4.2.17X < MilSPLACEMC NT* . IS. • TONS*/13X 

4 ’ VISIBILITY  '.3A4.I3X. 

5 *PE SIGN  SPEEO  *.I RNCTS*/1.3X. 

6 • AVERAGF  STA  ST  ATE  * .F3 . 1 . 15X . *FUFL  FRACTION  *,F4.2) 

IF (FLAG.Eo.1 IWRITE(b*?02) 


00004220 

r.un  J4?su 

110004240 

nooo42so 

00004280 

00004270 

00004280 

00004290 

00004300 

oooc4iio 
onr043?c 
00004330 
00004340 
I)  0 0 0 4 3 5 u 
ii  nr  ii4  3hii 
00004370 
0II00438U 
(10004390 
00004400 
00004410 
00004420 
00004430 
00004440 
00004450 
r 0004480 
00004470 
0(1004480 
00004490 
00004500 
rooo4bio 
00004520 
00004530 
00004540 
00004550 
00004580 
00004570 
00004580 
00004590 
00004800 
00004610 
00004ti?0 
00004630 
00004640 
00004650 
00004660 
00004670 
00004680 
00004690 
00004700 
00004710 
00004720 
081109750 
00004740 
00004750 
00004760 
00004770 
00004780 
00009790 
00004600 
00004810 
00004820 
00004B30 
00004840 
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202  FORMAT(//10x.*  GROUP • .5* . • TASK • t 18X . • LOC AT  ION • . 2X , • T ASK • .4* , • 

1 .4X.  'TASK*  /IX.  1 OX.  'NAME*  .6X.  'NAME  • . 20X  , • COnf  • , 4X  . • T I ME  • . 

2 RX.’FUEL'.SX.'POS*/ 

3 IV.  52  k. ' I MBS) • ,2X.  • (GALS) •//) 
l>OSPRD=l . 

CCMIN=9999. 

0FMINs9999. 

»VMlN="99?9. 

LSMIN=9999. 

' TwfETEr9~999\ 

C ZERO  OUT  TASK  COUNTER  Af TEH  A CRAFT  HAS 
C COMPlTTEO  A SORTIE 
DO  921  1=1 .25 
DO  422  J=1 . 4 
COUNT! I • J ) = 0 

rwnwf — ~ ■ _ 

421  CONTINUF 
NTASK=0 
DO  47  1=1. PTR 
LOCATN=PSHLST(IT 
INST  = $INST  ClQCATN) 

GROUF= JT.kOUp  i i uCATN  T ' 

inGKOUP.FO.O  1GOTO  2U4 
NODT=lNODr (LOCATNI 
IF (NUDE .EO. 1 )GUT020b 
NOOE 1 = M5DE  2 
N0CE2  = M)DF 

'TO'  {TASK  (GROUP  .NODFl  . N00F2 . T ASKnO  .RATE  ) * 

TASKN1=TASKN0 

IEtGKOUP.GE.90)TASKNl=TASKNl+19 

RATE1=RATF 

iriGR0UP.GE.90)RATEl=l 

c note:  counter  for  the  3 search  failures  art  stcrfd 
•c~  m wmt  T"»wn-rnsKWDs-  20.22  unc  "ar  — ■ 

IF(TASKNO.E(j.0IGOTC204 
C TASK  IS  PERFORMED  INCREMENT  TASK  COUNTER 

COUNT  ( T ASKMl  .RATEl  )=C0UNT  ( TASKM  ,RATt 1 1 *1 
88  MA3T5k=MASTf R(TASKNu.RATE) 

L FIND  CC  FOR  MASTER  TASK  17 

C FIND  MINIMUM  VALUE  OF  TACFT  PARAMETER  I CC . OF . MN . L S . TW 
CC0=CC!KASTSK) 

IF! MASTSK . EG. I 7 1CAL L *CC 1 7 ( GROUP , f Ns T , NODE  1 , NODEP . DE Ck .CARGCP 

IF(CC0.LE.CCMIN)CCM1N=CC0 

IF(DFIMASTSK)  . LE  . DFMIM  DFMIN  = DF  (MaSTSK  ) 

IF  (WMMASTSK  ) .LE  .MNHIN  IMNMINrMN  (MaSTSK  I 

ir  iES  (MASTSK  I.EE.L  SMITH  LSMTE  =LS  (MaSTSK)  

in  TM  MASTSK) .LE. TURIN )T«MIN=Tk( MASTSK) 

TPOS=TPOSMX(MASTSK) 

IT IMASTSK.EO.l 7)TP0S=rC0»UF (17)«MM 17I*LS(17)*TMM7) 
IFULST=FUELST ( I ) 

IF (GROUP. GC .90 1GO  TU  P96 

”•  IFIFl  AG  2EO . 1 1 WRITE  ( 6 .1.8 ) ( TASKNM  ( J ,1  ASKNO  .R  ATF  1 . J = 1 .67  . 

1 LOCATN.TIMLST  ( I ) I If  (LST.TF'OS 
4 8 FORMAT! IX, 16X. ,6A4 .2X.I6.2X.F5.1 .2X.I6.3X.F5.2) 

GO  TO  825 
C TASK  FAILURE 

896  IF (FLAG.EQ.l 1WRITE lb, 893 1 ( TASK! M (J, TASKNO .RATE  1 *J  = 1 .4  I . 

1 EOCATN.TIMLSTdl.in  LST.TPOS 

893  FORMAT (1X.16X, ,4A4, • : fAILrL»,2X.I6.2X,F5.1,2X.lb.3X,F5.21 
825  NTASK  = NT  ASK ♦ 1 
GOTO  47 

205  RASGRP  = GROUl- 

IF ( GROUP. GE .90 )HASGRP=GR0UP-80 


TASK • 00004850 
00004860 
00004870 

oorTTaSso 
00004890 
00004900 
00004910 
00004920 
00004930 
00004940 
00004950 
00004960 
00004970 
00004980 
00004990 
00005000 
00005010 
OOOO502O 
00005030 
00005040 
00005050 
00005060 
00005070 
00005080 
00005090 
00005100 
00005110 
00005120 
00005130 
00005140 
00005150 
00005160 
00005170 
OOO05180 
00005190 
00005200 
oooo'nio 
00005220 
00005230 
00005240 
00005250 
,CL0 100005260 
00005270 
00005280 
00005290 
00005300 
0000531U 
00005320 
00005330 
00005340 
00005350 
00005360 
00005370 
00005380 
00005390 
00005400 
00005410 
00005420 
00005430 
00005440 
00005450 
00005460 
00005470 
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tr<nar-.i3.i>*.HiTr<u.?06>  ( grpnm  i j.hasgrp ) • j=i  .4  > .locatn 

206  FORMAT  ( 1 * . lex  ,4  AM  . 1 /X  . It!  I 
N0CE2=1 

GOTO  >4  7 

204  IF(FLAG.EQ.l)wKITE(6.P07HOCATN 

207  FORMAT  t IX , 43X . 16  ) 

47  CONT1NUF 

C CALCULATE  PATH  PROBABILITY  OF  SUCCL  SS 

PTHPOS  = CCMlN»Ur  MIN*MVM1N*1  SM1N4TW4 IN 
tP(Fl AG.EO.l >WRITE(6«208 IPTHTIM 

208  f 0KMAT(//1X,10X.  *TIwf  TO  COMPLETF  SHUT  IF  I PRS ) • « 12X  «F5 . 1 1 
ir(FLA&.L0.1)<»KITt  (6.401  > 1PMFUE 

401  FOKMATI/lX.lOX.  'FULL  CONSUMED  IN  SORTIE  I GAL  S ) • . 1 BX  . I A ) 
1F(FLAG.L 0.1 ) WRITE  ( b . 402  I PTHPOS 

402  rOKMAT<//lX, 

1 T7X i • SORTIE  PRORAR II TTY  OF  SUCCESS*  ,?2* , 

1 Tb.4  ) 

iriFLAG.EQ.l  > wR I TE <6.403  1 UNA JPB(NPATh) 

403  FORMATI/lX. 

1 17X, 'SORTIE  FRCWUFnC  T OF  OCCURRENCE • , 2 1 x ,F 6. 4 ) 

PT  = PTHPOS»Ut.AJPlS(NPATH> 

TnTTPrTOTl«tPTHTIM.PT  

TOTf UE =TOTFUt+PT*PTHFHE 
t LOOP  TO  INCREMENT  TOTAL  COUNTFR  Fl)R  Tasks 
00  440  1 = 1 » 2 5 
DO  491  j= 1 » 4 

TOTCNT ( I . Jl=TOTCNT( 1 . J ) *PT »COUNT ( It  HI 
A9T  CONTTRUF  * 

490  CONTINOF 
3000  CONTINUE 

PHPOS<f.PATH)=PTHPOS 
GOTO  201 
C 

c 

C PRINT  SORTIE  SUMMARY 
C 

9999  CONTINUE 

DO  3001  NPRTEU=1 .NPTOUT 

WTTTTTI 6 <999?  IPROGRM  . SCENNO 

9992  TOHMAT ( • 1 • //// 

X 18X , •*•*•».*»»••«•  SORTIE  SUMMARY 
1 3CX.A4,'  SCENARIO  '.12/1 

WRITE (6. 211 )MXTIME,LFTNAM,RAN&FR. TDTSP. 

X ( V1SDS2I VISDTB. I I . 1 = 1 .3  I . IUSPD . SSA VG , FUFRAC 
' ' — ' TFT rcprnr.EtJ.Tn&OTO  999n 
WRITE (6.9997M0TPRR 
9997  FORMAT!// 

1 IX. 17X.5X, 'FRACTION  OF  SCCNARIO  COMPLETED  '.F6.4/Z 
l 13X, 'SORTIE' ,2X. 'SORTIE' .2X, 'SORT TF' .PX. 'FREOUfNCY* . 

1 8X.  'SORT  It  ' .BX.  'SORTIE  '/15X.  'NO.  • . 4X,  'TIME',  4X,  'FUEL*. 

- r 7*.''0F’'.HT1''TTTUBAtnETTTT\«m.'Y5ClfCrsSFUr»722!r,  THRSTT. 

1 2X  * • (GAL  SI  * .2X. 'OCCURRENCE ' . 4 X . 'OF • , 2X . 'SUCCESS' . 

1 4X. 'OCCURRENCE'//) 

PR0P0S=0. 

DO  9996  I=1.NPATH 
ADJPRR  = UNA JPP ( I I 


CONTRR=PTHPOS*AOJPRb 

PROPOS=PROPOS+CONTRB 

WRITE (6.9998  1 1 .PATHTMI I I . IPTHFUI I ) . AO JPRB . PTHPOS . CONTRR 
9990  T0TTMAT(I3T(.T9.'ni.rS.1.3X.I6.5X.F6.i*.inf,r6.TrVBTrF67Trr 
9996  CONTINUE 


00009480 

00009490 

00009900 

00005910 

00009520 

00005530 

00005540 

00005550 

00005560 

00005570 

00005580 

00005590 

00005600 

00005610 

00005620 

00005630 

00005640 

00005650 

00005660 

00005670 

00005680 

0000569(1 

00005700 

00005710 

00005720 

00005730 

00005740 

00005750 

00005760 

00005T70 

00005780 

00005790 

00005800 

00005810 

00005820 

00005830 

00005840 

00005850 

00005860 

00005870 

00005880 

00005890 

00005900 

00005910 

00005920 

0(1005930 

00005940 

00005950 

00005960 

00005970 

00005980 

710005990 

00006000 

00006010 

00006020 

00006030 

00006040 

00006050 

00006060 

00006070 

00006080 

7101106090 

00006100 


13f) 


c 

c 


CALCULATE  TIME 
FUEL  CONSUMED 


TO 

IN 


COHPLLTF 

AVERAGE 


AVtTIM=TOTIM/PHOPOS 

AVEFuE=TOTFuE/PROPOS 


AVERAGE  SORTIE  ANC 
SORTIE 


C _ 

C PRINT  "OVERALL  RlSULTS 


c 

WRITE  16  <111  Cl  PROGAnTSCENNO 
<♦80  FORMAT) '1'//// 

X 13*. SCENARIO  UVERAll  RESULTS  •••••••••**••'// 

1 30  X iAHi * SCENARIO  ' , 12/  ) 

WRITE  (6.511  I MX  TIME  .LFTNAM. RANGER.  TO  ISP. 

1 ( V ISOS? ( V I SDT  B , I > . 1=) .3) . 1CSPE.SSAVG.FUFRAC 
PtR^R6='T0tPRR»10  0. 

WRITE (6.405IPERPRB 

Tire FORMAT  I / f\T77?'tTr  PEKfFNT  OF  "SttrUARTO'  f OFPl f TFT)  T,F5.I7r 

WHITE ( 6 • 406 ) PROPOS 
406  FORMAT (IX. 

1 14X,  •PRORAIill  ITT  01  SUCCESSFULLY  COMPLETING  SCENARIO  •. 

2 ?X,r4.2//) 

WRITE  16,4071 

~4TJ7~ — RJTTK®TTTT^.T4-X7'SPrrTFTC«Tim^  OF- THF  AVERAGE  SDRTmV) 

WRITE (6.40UIAVET IN 

40B  FORWATnX,??X.»TIVr  TO  COMPLETE  AVERAGE  SOP T If • . FP . 1 , • HRS'/I 
WRITE (6,409)AVEf  UE 

409  FORMAT  ( IX « ?2"X. 'FUEL  CONSUMED  IN  AVERAGE  SOP T IE • ♦ Ffl . 1 . • GAIS'/) 

WRITE (6,4101 
4 1 0 F ohMA  f ( /I  )E1 

1 14X.MASK  COMPOSITION  IN  AVERAGE  SURTIF:1/) 

" “WRITE<6,5?2> 

522  rORMAT(lX,22X, •TASK* ,6X.« T I PE S • , Si , * T ASK • > 

WRITE  < 6 .5731 

5?3  FORMAT! IX. 22X, 'CODE • , 4X , • CORPLC TED • • 3X  » *N  ARE  'I 
wR 1 TE  E 6 , / 0 0 2 ) 

700?  rORMATI/lX.lBX.'ON  SLFNE I • I 

“ in  TOTCNT  (1 ,4  ) , GT,  0 . IwRITE  (6,70031  TCTCNT  (1.4) 

7003  FORMAT ( 1 X ,??X , 'URC* . 6X . F 5 . ? . 5X , • RO ARC  • ) 
irrT0TCNT<?.4I .GT.O. )wRITE(6. 7004  I TuTCUT ( ? ,4 ( 

7004  rORMAT ) IX ,22X, 'FFF • .61 .F5.P.5X . FIGHT  FIRE  FROM  CG  VESSEL') 
rrrrt!Tnni3'.'41‘7GT.O.  IWRITrT6.70nSlTOTCNT(3.4) 

7005  FORMAT ( IX , 2/X  « • F FO  • ,6X .F5.2.5X, *F1GhT  FIRF  ON  ANOTHER  VESSFL'I 
TFTTOTCNT (4,41 ,GT •0»)wRITF(6.7006)TOTrNT 14,4) 

7006  FORMAT ( 1 X ,??X , 'GAS* ,bX ,FS.?,5x , 'GFN  HAL  ASSISTANCE') 

- “TFTTOTCNT (5.4) ,GT.O, I WRITE (6.7D07)TOTCNT(S,4) 

70  07  FORMAT  ( 1 X ,22X  , • INS • .6X . F5.2 . 5X . • INSPE  CT IGN • ) 

ITT TUTCT3TT6  ."WT  .GTITT'. TWRITT  1 6". 70 OB  ) TOTCNT  (6.4V 

7006  FORMAT! IX. 2?X, 'LEO' ,bX ,F5.?,5X, 'LOAn  EQUIPMENT') 
in  TOTCNT  1 7. 41  .GT.O.  > WR ITE ( 6 . 7009  I TOTCNT  (7.41 

7009  FORMAT ( 1X,2?X, 'LOI ' ,6X ,F  S.2,Sx, 'LOITER' 1 

IF  I TOTCNT ( 6.4 1 .GT.O. ) WRITE ( 6 . 7u 1 0 1 TOTCNT 16. 4 ) 

7010  rORMAT(lX.??X.'LSH'.6X.F5. 2. Sx, 'LAUNCH  SMALL  BOAT') 

rrTTOTCNTTT,9T.r,T.0:TfcTTITETF'.70IITTnTCNT(9.4) 

7011  FORMAT ( IX, 22X, 'MAC* .61 .FS.2.5X . 'MONITOR  ACTIVITIES'! 

IF (TOTCNT (10. 4 I . GT . 0 . I WR ITE ( 6 . 70 1? ) TOTCNT ( 1 0 . 4 ) 

701?  F0RMAT(1X.2?X.'M0S'.6X.F5.?,5X. 'MONITOR  OIL  SPTU'I 

IF( TOTCNT (11 .4) .GT.O. I WRITE ( 6 , 701 3 I TCTCNT ( 1 1 .4) 

7013  FORMAT  ( I X ,22X  . 'OBA  • .61  .r  S.2.SX  . 'ON  tiCARO  ASSISTANCE') 

IFTTTTTNTTT ? ."XFrYGT.0 .7WRTTFI 6T70T®  1 TOTCNT  (T?_,  4 1 

7015  FORMAT ( 1X.22X. 'OSC ' ,6X .rs.2,5x, 'ON  srFNF  CCMM ANOER ( GE NF R Al I • 
IF (TOTCNT (13. 4 1 .GT.u. (WRITE (6.7016)  TOTCNT ( 13.4) 

7016  FORMAT ( IX ,22X  « 'RHP' , 6X , F 5 • 2 , 5X , 'RF  Tw IFVF  BOARDING  PARTY*  I 
IF(TuTCNT( 14.4) .GT.O. ) WR 1TF (6 . 70 1 7 ) TOTCNT ( 14 , 4 ) 

7017  FORMAT!) X,??X , 'ROH' .6X .FS.?.5X. 'RF THIEVE  OBJECTS') 


00006110 
00006170 
_00006130 
00006146 
00006130 
00006160 
00006170 
00006180 
00006190 
" 00006200 
00006210 
00006220 
00006230 
00006240 
00006230 
"07)606  265" 
00006270 
00006280 
00006290 
0000r.300 
00006310 

nnno63?o 

00006330 
00006340 
00006350 
00006360 
00006370 
00006380 
00006390 
OOC06400 
00006410 
00006420 
00006430 
00006440 
00006450 
00006460 
00006470 
00006480 
00006490 
00006500 
00006510 
00006520 
00006530 
00006540 
00006550 
00ni)6560 
00006570 
00006560 
00006590 
0 0 0 06600 
00006610 
00006620 
0 0 0 0 6 b 3 0 
00006640 
00006650 
00006660 
00006670 
TT0006683 
00006b90 
00006700 
000llb710 
00006720 
00006730 
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If ( T u 1 C N I ( 1 ‘ • 4 ) 

* f QRPM  tl X ,2*  X , • 
If  ( 1 1 1 ( f.T  ( If  . 4 ) 

* r,">r<vAT  ux,?iX,» 
If  ill  TCNl  I 1 7 .4  ) 

1 FORMAT  ( 1 X ,2«  X • * 
1 *sT  AM  CU  I S»  U I 

ir  c Ti u .n’t  ( ik ,4 ) 

I E OHM  AT  < l X X , • 

ir  ( rcTCNT  ( !**•*♦  i 
> muff  t < l x «?,  x • • 
If  ( TCTC r T ( 20  m ) 

5 FOKVAT ( 1 x • *V  x • • 
ir  i totc NT  < ; i «4 ) 

. FOHXATMX.tVJl,' 

i*vcpk  rouTT’Prr  t 

|F(Tl*TCNT(2J  . 4 ) 

* format t l x ,22X . * 
if ( tl  rr  .t i.  ’i^i 

=;  roRFAT  n x •?; x • * 
1 • WORK  r QO  T Vki U 1 
rr-492  r-i.r* 

IT  I ItTCfjT  ( I » 4 ) . 
rPM  ir.  r 
toR  1 Tt  (6*7027) 
rpHVAT (ix, ?rx , • 

vpttf  rr.enr?) 

? f CHVAT  ( / 1 X , 1 6X  , 
ir  IRTCMIl  *3)  . 

* f OKX'AT  ( 2 3 x , • S ( L 

If  ( T.  TrMliT.ll 

FCHVAT  ( ?3x  « • SI  L 

■ iFiroTc^rr7»3T.‘ 

* r PH V A T ( \ x ,2.'X  , • 
TTTTCTCNT 1 3 • 3 1 . 

f*  FORMAT  ( ix  ,2r'X  , • 
IF ( TOTCNT (22*1 ) 
FORMA  T I 1 X «2r X • • 

TrcTUTcnrnr*3T. 

i,  f OH*  AT  ( 1 X ,??X  , • 
IT ( TCTCNT (5,3) . 
7 FONMAT ( 1 X ,22X  , • 
no  4^3  t = i » 5 
IF(TlTCNT( 1,3). 
rnrrriT;iT~ 

*RITE  (6*7027) 


• (•  T • U • ) M<  1 T E (6.7018)  TOTCNT  ( l1'  ,4  ) 

Kf’t  * *t  x .Fb.2.*:x,  *Rf  sru  I'FOf  IF  • ) 
.GT.O.  ) WHITE  (t  . 701s)  T(  TTNK  lt.,4) 

R*tP  <bX  ,F5.2 ,5X  , *RF  Tk  IF  \Jf  S*All  HPAP 
.GT . u. ) w»U 1 E (6* 70  70 ) TPTCNT ( 1 7 .4  ) 

SSI  * •(  X .1  5.2.5X  • 

a i 1. .if  »a  st  vi  ssn  • ) 

. C.  T . J • ) w ti  n f (6*7021  ) I C T r M ( Is  . 4 ) 

S/f  • *t>»  ,F  b.2 ,5x  « *Sf  I /E  • ) 

• G T • U • ) W K I T T ( r . 7 0 2 P ) TOTCNT (19,4) 

T*S  * .)  X ,t  6.2  .‘'X  , • TAM  WATER  SAMPLE  • ) 
•GT.O* ) WHITE  (6.7023) T(  TCNT(2(I*4) 
ULv,*.6X.Fb.?.bx.  *IJM«]AI,  f uUlPMFNT  • > 

• FT  • 1 • J ir.  • < 1 T r if  ,7  ()  ? 6 ) T ( ’ T ( AT  f ^ 1 ,4  ) 

WQh  • .M  ,Fb.?.6X  , 

Fwnv  small  pcatm 

• GT*u»  ) WHITE  (b«  7024  MC  TENT  (2?  «4) 

f •(  X ,Fb.2.bx  . *WDR*  F iJU  TPM  NT  -i  n 1 

• G T • u • >*HlTr  (6,702*)  f t.  T(  NT(23.4) 

*GF  * .E  x ,F5.2.R*  , 

1 f IXF  I'  HO S 1 T Ilf,  • ) 

(> T • 0 . ) 6 0 T 0 4 9* 


NO  T ,.sk  s • ) 


•HE  Cut  f L S)  f f i : • ) 

GT.O. ) wRITE <f> *Ht04 ) TOTCNT ( 1 ,3  ) 

• *6X  ,f  «■  .2  ,bX  , • S»  ARCH  FOW  CISTRFSSFn  UNIT:  FOUND*) 

• GT  • C • ) wH I TE (6. 3033) TCTCNT (20.1  ) 

• *6X ,f  6.2.5X , *Sf  ARM*  f OH  riSTwfSSFP  LNTT:  f A 1 L F n • ) 
CT.  ir.  ) '»  R TTTT  f * P COTT  T DTCNT  f ? * 3 T 
SFS  • ,gx  ,f  b.P  *5x  , »Sl  ( - F SC  CRT  • ) 

GT  ,0,  ).\HITE  (f«6005)TDTCNT  (3*3) 

SHE  • tbX  *F  b.2  *bX  . *SF  AkCH  FOR  HEOHLF:  F OuNI)  • ) 

.GT.U, ) WHITT (6.3031  ) TCTCNT (22,1  ) 

SPE  • «bx *F b*2 *bx • • Sf ARCH  FuH  PEOPLE l FAILED*) 
nT.n.IVRITF  (FrmHTE  VTCTCNT(4 . 3T“ 

S)  T ' »6X  *F  5.2  *bx  . *Sl  0»  P A T R 01  • ) 

GT.O.  ) WRITE  (6  *d007  iTDTCM  (5.3) 

TOini  * *tx«F5.?«5X.  »Tnw*  ) 

GT .0 . ) GO  TO  49b 


FAILED*) 


«*H  1 TL  ( 6.800b  ) 
FORMAT ( /IX . 1 PX 

ir c totcnt ( 1 #2 1 

F OR M fl  T ( T X , 22K  .* 
IF ( TOTCNT (2,2) 
TORWAT  nx  ,22X  . 
If ( TOTCNT ( 3.2 ) 

format  nx  ,??x, 

ir ( TOTCNT (4,2) 

ir ( TOTCNT ( 5,2 ) 
rpRMAT (1X.22X. 
1 F ( T 0 T C H T ( 6 , 2 ) 
FORMAT (IX.22X* 
IT  I TOTCNT (2S. 1 


.’CRUISE  SPIED:*) 

• bT«Q.)*RITl(6«BGa0tTnTCMIlt2) 
rrSPrFG'X  *F5.?^5T-,  ’TTCrTRT*  ) 

• GT.O. ) I If  (6 .8009) TOTCNT ( 2.2) 

•irr*  »bX. F5. 2. 5X. ’IDENTIFY  CRAFT*) 

.GT.O. ) WRITE (6.8010 ) TOTCNT (3 «2) 

•inr* .6X.F5. 2. 5X. ’IDENTIFY  FLEET*) 

.GT.O. ) WHITE (6.8011 ) TOTC NT (4.2) 
'rTTnTT.fnr.F3.?.5XT*P7\TRnm' 

• GT.O.  ) WRITE.  (6.80  35)  TuTCNT  (5 .2  I 

• SFL  * .6X.F5.2.5X. *SF  ARCH  FOR  F l Ff  T * ) 

.GT .0. )*R1TI (6.8U14)T0TCNT (6,2) 

*SSH* .6V .F5.2.5X. *SFARCH  FOR  SMTP ! FOUND*) 
) .GT . u • ) wR 1 TL (6.303? )TCTCNT  (25,1  ) 


00006741) 
nonoh/bu 
00006760 
00006770 
00006780 
00006790 
00006800 
0000681 u 
00006820 
00006630 
nnP06b4u 
00006850 
POO 06860 
00006870 
POOOG68O 
00006090 
00006901) 
00006910 
0000692U 
00006930 

000 0694 U 

oonoARsn 
00006960 
00006970 
00006980 
U000699U 
OOOO7U0O 
0 0 0 OTP 1 0 
0PP07U20 
00007030 
00007040 
00007050 
00007060 
00007070 
PCP07C80 
00007090 
00007100 
00007110 
00007120 
00007130 
00007140 
00007150 
00007160 
00007170 
00007160 
nnno7i90 
0000 7200 
00007210 
00007220 
00007230 
00007240 
onnn7250 

00007260 

00007270 

00007280 

00007290 

00007300 

THJTT0731TI 

00007320 

00007330 

00007340 

00007350 

00007360 


PI  ■ — 


1 


303?  FORMAT ( 1X.22X. 'SSH* .6X .F5.2.5X. 'SEARCH  FOR  SHIP:  FA  I LFD • ) 
lF<TGTCNTt7,2I.GT.0.)kiRITE(6.B015>  T0TCNT(7,?I 

8015  FORMAT! IX. 2?X. 'TEQ' .6X.F5. 2. 5x. 'TRANSPORT  tOUIPMFNT  • ) 

ip  rrcTCui  et.  ?i  .gtvct;  ramm  svso  imofcim  sttt 

8016  format ( ix. ?2X. 'tpe*  .6x.Fb.?.5x. 'Transport  people • i 

IFITOTCNT (9.2) • GT • 0 • IwRITF (6.8017ITOTCNT (9.? I 

8017  FORMAT ( 1 X . 2?  X , 'TRA' *6X .F5.2.5X. 'TRANSIT' ) 

"DO  496  1=1.9 

IF ( TGTCNT ( 1 .2  I .GT .0. ) GO  TO  997 

'49S — CDRYTNUE  — 

mRITE 16.7027) 

C 

997  NRITE 16.8018) 

sorn  roRMATi/ix.iex, 'flank  speed:') 

IF  (TGTCNT  ( 1.1 ) .GT  .0.  (WRITE  (6,8019)TnTCNT  I 1 .1  ) 

BOT^  FOKFATflX;7?r,  *-nSD»  ,"ES,'F5.?7?X.’DaSR'»  V *-■ 

IF(TCTCNTI2,ll.GT.0.)toRITF  (6.60?0)T 0TCNTI2.il 
8020  F0KMATI1X.22X.MNT'  . 6X  . F5  . 2 . 5X  . • INTFRDTCT'  ) 

00  30 1 1=1.2 

IFITOTCNT (I.D.GT.O.)GO  TO  502 

301  CONTINUF 

- HTrrrriB.rnrr)  * 

302  CONTINUE 
C _ 

C PRINT  EVALUATION 
C 

WRITE 16,48?) PROGRM.SCFNNO 
98?"  FORMA  TT^l  »/7// 

X 16X .' •••••*••••*••  SFENAhlC  EVALUATION  ***•*•»•••»**•// 

1 30X.A9.'  SCENARIO  *.I2/) 

WR ITE  <6 .21  I I MX  TIME .Of  TNAM.HANGf  R. 10  ISP. 

1 (VISDS2CVISDT0.I ) . 1 = 1 .3) . IDSPU . SsavF, ,Ft)FR AC 
00  503  1=1 .25 

DO  “5 (Hi  J=T  .9  - . 

IM1 I • JlsTOTCNT ( I . J) .NHATS* .SOUuOl 
509  CONTINUE 
503  CONTINUE 

WRITE ( 6 .511 ) NT  AYS 

311  FORMAT (//IX. 

X 17X, 'IMPORTANT  TASKS  CCMPLETEC  IN  '. 

X 19,'  CATS  OF  OPERATION'//) 

.RITE  (6.512) 

312  rORMATIlX,22X.'TASK',6X, 'TIMES', 5x»'TASK') 

WRITE (6. 51 3) 

313  TORMATI 1X,2?X,'C ODE • .9X. 'COMPLE TEN ' . 3 X . • N ARE • I 

•RITE (6. 200?) 

2002  FORMAT ( /IX . I8X , 'ON  SCENE:') 

C IT  AN  IMPORTANT  TASK  IS  NOT  PERFORMED.  ITS  TASK  CODE 
C AND  TASK  NAME  WILL  STILL  APPEAR  IN  THE  OUTPUT.  WITH 
C T)T  NUMBER  OF  TIMES  COMILFTLD  pEING  0.0.  IF  IT  IS 
C DtSIRCU  AN  IMPORTANT  TASK  NOT  PERFORMED  kill  NOT  APPEAR 
C TN  T Fie"  OUTPUT . 

IF  I IMI  1 .9)  .(.£  .0.  . ANL  . IMPTSK  (1 ,9)  • E U»1  ) toR  I T [ 16,200  3)  I Ml  1 .9  I 

2003  FORMAT! 1X.22X, 'BRD* .6X,l5.5X,'UCARr'> 

IF ( IM12.4I .GE.O..ANU.IKFTSK <2,1 I.FO.l IWRITF <6.2004>1M| ?.M) 
2C09  FORMAT! IX.22X, *FFF* ,6X, I5.5X. -FIGmT  FIRE  FROM  EG  VFSSFL • ) 
IFIIK(3,9).!,E.0..ANU.TMPTSK(3.9).FO.l  > MR  I T ( |6,?003)IM|3.9) 
200?  T0RMAT(TX,22X.'FTC  .F,X  . 15 .5X , 'T  IF.hT  FIRF  ON  ANOTHER  VTSSFl • ) 
IF(IM|9,9).GE.0..ANu.IMPTSK(9,9l.rU.IIWRITE(6,?006ltM!9,9( 

2006  F0RMATI1X.22X. 'GAS' .6X . I5.5X, 'GFNfRAL  ASSISTANCE') 

IF ( IM( 3 .9 ) .GE .0. . ANU. TMPTSKI5.9 ) , f G • 1 ) WR  I Tf  16.2007) IM|5,9 ) 

2007  FORMAT ( 1 X, 2?X. • INS' .6x.l5.5X,' INSPECTION' ) 

IF  | IM|  6. 9 ) .F-E.U..ANU.  TMHTSKI6.9  ) .FU.l  I nHITf  (6,200B)IM|6.9) 


00007370 

00007380 

00007390 

00807900 

00007910 

00007920 

00007930 

00007990 

00007950 

00007960 

00007970 

00007980 

00007990 

00007500 

00007510 

00007520 

00007530 

00007590 

00007550 

00007560 

00007370 

00007580 

00007590 

00007600 

00007610 

00007620 

00007630 

00007690 

00007650 

00007660 

00007670 

00007680 

00007690 

OO007700 

00007710 

00007720 

00007730 

00007790 

00007750 

00007760 

00007770 

00007780 

00007790 

00007800 

00007810 

00007820 

00007830 

00007890 

00007850 

00007860 

00007870 

00007680 

00007890 

00007900 

00007910 

nonr,79?o 

00007930 

00007990 

00007950 

00007960 

00007970 

00007980 

00007990 


139 


2008  format  1 1 x ,2?x , 'Lru • .f-x . I5.5X , •load  rcuiPwrNT'i 

IF(IM(7,4(.(r.0..Ar.ii.TMPTSK<7.4).FQ.llWRITI(6.2009)IM(7.4) 

2CU9  FORMAT ( 1 X.22X . *LOI • .6X , I5.5X . • LOITER  • 1 

IF  ( I*  ( 8 .4  ) ,(.t  .0.  .AND.  IMPTSK  ( 8,4  ) .F  Q.  1 I WRITE  (6.2010  > IM(8,4  ( 

2010  1 OHMAT ( IX. 22* . 'LSB* .b* . 15. AX • *1 AUNCH  SMALL  BOAT*) 

IT  t IF  (9,4  I .(.l  . 0.  .AM  .IMPTSK(9.4).FQ.l>WRITf(6,2011)IM|9.4) 

2011  FORMAT  I 1 X ,22X . 'MAC • ihl . 15. 5X . ’MONITOR  AC T I V I T I F S • ) 
iriI»(10.4).Gt .0.. AM .IMPTSK (10.4). FC. 1 (WRITE (8.20 12 I TM( 10.4 ) 

2012  FORMAT ( IX .22X . *MCS* .6X . 15. 5X , 'MONITOR  OIL  SPILL*) 
ir(IMlli4l.bl.O..  ANL  • IMPTSK(11.4>.FC.l)»RITE(6,2013)tM(11.4) 

2013  FORMAT  ( 1 X ,2?X  , *ORA  • .6X  . 15. 5X  . *014  MOaRO  ASSISTANCE*) 

ir  ( IM  12.4  ) .GF  .0.  .AM  . IMPISH  ( 12.4  » .FU.  1 )»H  I TF  (8.2015  ) !M(  12.4  1 
20 1 9 F ORMAT ( IX .22X . *GSC * .6* . I5.5X . *ON  SCFNF  COMMANDER (GENERAL ) • ) 

ITi  IM  1 3.4  > .GE  . 0 . . AN(  . IMPTSK ( 13.4 ) .FC. 1 (WRITE (8.201b 1 IM ( 1 3.4  I 
2018  FORMAT ( 1*. 22*. 'RBH* .6* . 15.5* • 'RETMIE VE  BOARDING  PARTY* ) 

IT  ( IM  14 .4  > .G)  .0.  . Ai.r  . TmPTSK  ( 14 ,4  ) .FC.  1 ) wRITF  (6.2017)  IM(  14 .4  ) 

2017  FORMAT ( IX .22X. 'ROB* .8X . 15.5*. *RFTRIFVF  OPJECTS*) 

IF  < IM  ( 15.4  ) .GF.O  . .Ai.D.  IMPTSK  ( 15.4  I .FC.1  > WRITE  (8 .2018  ) TM(  15.4  ) 

2018  FORMAT  ( IX  .22*  . *hPF  * .8*  . 15.5*  . 'RESrilF  PrOPLE'l 
IF(IK(lh.4).Gl .0. .AND. IMPTSK (16.4).FC.1>WRITF(6.2019)IM<16.4) 

2019  r OR MAT ( 1* ,22*. *RSB* .bX . 15. 5X. 'RETRIFVF  SMAl L BOAT*) 

IF  HM(  17.4  ).GF.O..AI.r.  IMPTSK  (17,4  I .F  c.T  ) cRIYF  (8,2020)  TM(  17.41 

2020  FORMAT ( 1X.22X. *SSI • .6*. 15, 5X, 

1 • STAFF  CllT  S)  FC  I At  INTEREST  VESSEL  ' I 
IF ( IM( 18.4 ) .GE .0. .AND. IMPTSK ( lb, 4 ) ,F0 . 1 )WRI TF (8.2021 ) IM< 18,4 ) 

2021  FORMAT ( 1 * , 22* , *S7E  * .8* ■ 15.5*. • SF I 2f • I 

IF  ( IM ( 1 4,4 ) .&(  .0 . . AnL  . IMPTSK ( 19.4 ) .FC. 1 ) MR  I TF (8.2  022 ) IM( 19.4 ) 

202?  TOTTMATiiX.rjX,  *TWS ' VEX  • 1 5 • 5)f . • T AKf  »ATfR  SAMPir*7 

IF ( I M ( 20 .4 ) .GE .0. .AMT. IMPTSK  <2U .4  I .FC. 1 ) WRITF (6,2023 ) IM( 20,4 ) 

2023  format ( IX .22X. *UL 0* .8* . 15.5* . 'UNLOAD  FQUIPMFNT* ) 

ir ( IM ( 21 ,4 ) .GE  .0 . . ANL .IMPTSK 121 .4  > .FG.l )cHITF (8.2026) TM(21 ,4 ) 

2026  FORMAT (IX, 22X. *WCB* .fex , 15.5* , 

l'WOHK  EuOJPMENT  FROM  SMALL  BOAT*) 

TF  (IV  (7?,  4)  .Gr.O.  .Ai.r.IMPTSK(22,4  | .FC  . 1 ) WR ITF < 6 . 2024 ) TM 1 22 ,4 > 

2024  FORMAT  ( 1*  . 22*  . • won*  .6*  . I5.5X  . **.ORk  FCUIPMFNT  3 DRIFT*) 

TF( IMI23.4 ) .GF.O. . ANL . IMPTSK ( 23 . 4 ) .FC.l ) wR I TF ( 6 . 2025 > IM(23.4) 

2025  FORMAT (IX .22* .*WUE  '.6X.I5.5X, 

1 *W0Rk  EQUIPMENT  3 FIXFD  POSITION'l 
DO  692  1=1 .25 

■ Trn>{I,4).r.r.0..AND.TMPTSK(I.4).f(j.nr,0  TC  894 

69?  CONTINUE 

WR I TF (6,2027) 

2027  FORMAT ( 1 X .22* . *NO  IMPORTANT  TASKS  SPECIFIED*) 

C 

694  »R1TE (6.3002) 

3007  FPRMT(Tr7T)r.  18X  . 'REDUCrO  "SFFFOi'1 

IF(IM(1, 3). C.E.O.. AND. IMPTSK(1,3).F0.1*WRITE  (6,3004)16(1,3). 

1 IM ( 20 . 1 ) 

3004  FORMAT  ( 1X.22*.  *SDU*  .6*  . I5.5X  . 'SFAHCH  FOR  DISTRFSSFC  UNIT.1  FOUND*/ 
1 1X.22X,* SOU* *6X«I5*5x,*SE ARCH  FOR  DISTRESSED  UNIT:  FAILED*) 

I F ( IMI2.3) .Gt .0. .AND. IMPTSK (2. 3) .FO.l (WRITE (8.3003) 16(2.3) 

— 300  3 FORMAT  (7X  V72X  ,T5ETTTEYTT5 V5X V'  SLOW  "rSCOOTY  ) ~ 

IF ( I6( 3,3  I .GL .0 . .AND. IMPTSK ( 3.3 ) .FO. 1 )WR 1TE  18,3008)  16 ( 3.3 ) . 

X TMI22.1) 

3005  FORMAT ( IX .22X, *SPE * ,6X, 15. 5X . 'SEARCH  FOR  PEOPLE:  FOUND*/ 

X lX,27X.*SPF'.bX.I5.5X,*SFARCH  FOR  PEOPLE:  FAILED*) 

IF ( 16(4.3) .&E.0. .AND. IMPTSK (4.3) .FO.l (WRITE (8.3008)16(4,3) 

~nn)6  FDRMATUX,27X,-*SPfr‘,^TT,T5,5TrrSL0W  PATROir1-!  

IF ( 16(5.3) .GE .0. .AND. IMPTSK (5. 3). FO.l) WRITE (8, 3 007)16(5. 3) 

3007  FORMAT  ( 1 X.  22X.  *TOw*  .6X.  15. 5X.  *TOW  ) 

DO  693  1 = 1.5  

TT( TF  ( T ,31  . GFVO.  . AND . TFPTSK71 .3 ) . F 0 ; 1 1GO  TC  ‘895 

693  CONTINUF 


nnftoaoou 

00008010 

00008020 

00008030 

00008040 

00008050 

00008060 

00008070 

00008080 

00008090 

00008100 

nnnOHiiu 

00008120 

00008130 

00008140 

00008150 

oonoei60 

00008170 

00008180 

00008190 

00008200 

00008210 

00008220 

00008230 

00008240 

00008250 

00008260 

00008270 

00008280 

00008290 

QG008300 

00008310 

00008320 

00008350 

00008340 

00008350 

00008360 

00008370 

00008380 

00008390 

00008400 

00008410 

00008420 

00008430 

00008440 

09008459 

00008460 

00008461 

00008470 

00008471 

00008480 

00008430 

00008500 

00008501 

00008510 

00008511 

00008520 

00008530 

00008540 

00008550 

00008560 

06008570 

00008580 


WRITE (6.20271 


C 

695  WRIT! (6,3006) 

300®  formati/ix.isx. ‘cruise  spEec : • i 

IF  ( IM  1.2)  .GE.O.  .ANU.1MPTSK  (l,2>.rQ.llt.RITfl6.3Q30)l*'1.2i 
3030  fORWAT  < 1X.~22'X . 'CSC*  .6*.  15.3*.  •!  SCOP 7*  ) 

IF(JMIJ^.2).(.E.O..A6U.IXHtSH(2.2).F0.1  >»RITt  (6,S009))*i2.7i 
3005TT)KSatTi  X ,22X  . • IOC • .bX , 1 5 . 5X . • 1 DENT  IF  7 C R AI  T • ) 

IF  I IM  3.2)  .(,E.O..  AND.  I MPT  SKI  3. 2)  .)  0. 1 I..R1  Tt  (6.3010)1*13.2' 

“3016  PoRMaT  ( i‘iT.'?iTf7','n5rr'.6x  . I5.5X . • infST if  t f l F r I • ) 

IF(  IM(9,2>  .GE.O.. AND.  IMPTSM9,2).F  fc.l  IbHITI  16. 3011  ) 1*19.2) 

3011  TDRMATI 1X.27X, 'PAT • ,6x . 15.5X. 'PATROl  •) 

IF  ( IM  5 .2  ) .gE  .0.  . ANu.  IKPTSK  (5.2  ) .1  U.  1 laR  I Tf  IF.J01M(*i*  21 
3035  FORMAT t IX ,P?X, *SFL • .bX . 15. 5X . »SEArCh  FOR  Ft F F T • ) 

IF  C IRI6.2)  .(.l.U.  . ANu.  IMPISH  (6.21  .FU.  1 I.MM  (6.301«)I*i6.7i. 

-nrr757n - 

301*t  FORMAT  ( IX  i22X, ‘SSM*  .6X  . 15.5X  . •SEARCH  FOR  SHI*:  FOiKi*/ 

"X ' IX  • 27X  .‘•SSH  •. 6X. 15. 5x,*  SEARCH  FOR  FH  I ( : r*tl  CO*t 
IF  I IM  7 .2  ) .(.E  .0  . . ANb.  IMPTSK  ( 7 , 2 I .F  b . 1 I »R  l Tf  (6.301*)  IM  7.2  • 

“3015  rORHAT(lX,?2X.'TrQ*  .6x.I5.5X.  •TRAnShCRT  FbLIPM*  NT*  I 

IF  ( IM6.2  I .GE  .0.  . ANU.  IMPTSK  (6,2  ) .F  w.  ) >9*  m f 6. 30)6  > JM:  7 .2  > 

■' TTnr'T'ornns'n rxY77x.  »tpt  • .TT.T525X . 'trinspcrt  rrcn  r • ) 

IF  ( IM(9,2)  .C.E  .0.  .ANU.  IMPTSK  (9,2  > .F  0.1  >9RIT(  (6.301?)  IMi  9.2  I 
3017  rORMAmX,2?X.  'TRA*  ,6x  , 15. 5X.  •TRANSIT*  ) 

DO  696  1 = 1 .9 

TF(  TM I « 2 ) .GC. 0 . • AEu.  IMPTSK  ( 1 ,2 ) .F<5 . 1 >GO  TC  6*7 

696  CONTINLF 

'«PT7rtF.?o:7r 

c 

697  aR ITE (6.3016) 

3016  FORMAT  ( / lx  , 16X  « • F L At.H  SPEED!*) 

TFCIMI , 1 ) .F.r  .0.  .AN^. IMPTSK  (1.1  I .(  0. 1 )*R  1TF  (6. 3019  1 I*  ( 1 . 1 I 

3019  FORMAT! IX. 22X . 'DSP' . 6 X . 1 5 . 5X . • L ASH • ) 

TriTHT7nT.r,T.o. .ai.l:.tmftsx(2.i  r.rc.i  umir  <6.xo7iutwi?.i i 

3020  FORMAT ( 1X.22X, • IDT • .bX . I5.5X ,• lNTFRdlCT • I 

or  7oi  i = i .? 

IF  ( IM(  I , 1 ) .F.E  .0.  .ANu.  TMPTSK  ( I , 1 ) .ro.  1 )F.r  U 702 
701  C0NTINUF 

mute  (6,2027) 

702 — COTJTTNCr 

961  GOTO  9590 
9999  WR ITF ( 6 . 9993 ) 

9993  FORMATl// 

1 1X.23X.M.0  SORTIES  CAN  OF  CCRPlETFO') 

(. 

9950"  CTJNT  IRUF 
3001  CONTINUE 
C 

4999  CONT1NOF 
Rf  TURN 
END 

L PUSMCOaN  LIST  SULkOUT IDES 

C 

C SPUSH 

X 

C PUT  A f.UMHFK  ON  The  PUSHLUkN  LIST 

StWCUTINT  l'PTTSME'NTRy.EKTTPr.lRTl  H .EhPROF  I 

IMPLICIT  RFAL(A-Z) 

INTEGER  PSMEST.PTR.l, ENTRY 

COMM&im/PShOhN/I’TR  ,PS).(  ST  (lOO).TIMi  STlloOl.lHFlsTMUbl.PRMi  III  i« 

PTRrPTP+l 

PSmLST ( hTh  ) :E  I.TPT 


DI0H 

V 1 f*  I 


• t 0)4  * 

SMttft 1 


••••••« 


• OMIP 

lnIMM 


141 


ns  nr  nr 


I 


T |«L  S 1 < I’ll)  1 IhTIM 

00000130 

l ft  t m (i'Im  i Li>t  nt  i 

00000140 

Will  S t ( t’TM  1 Ul  lit'i 

(10 00  0 iso 

t r ( ( 1 t !■'/•■  1 ••  .1  l.  . 1 11  Itllll  ( I ‘i  tlMHfl  l(  1 K < ( C'lUt  ST  ( 1 1 . t = I 

t'TM  1 

0 o n 0 0 1 h 0 

hhOH 

1 PM  » At  ( 1 » . • 1 --  • . 1 ' . M » i 1 ( I f>  • 1 V 1 / i n ( t > . 1 M ) 1 

00000170 

*11  1 1 1 It  . M«01  H 1l.  . ( T IM  S 1 t t 1 . I 1 tPIM 1 

0 0 0 0 0 1 00 

It  1 HI  It  . 6 H 0 1 H 1 M . t till  l S 1 1 1 1 , 1 o , P T M | 

00000190 

hOfl  1 

rnitk  Aiiivii«t'.i'ii»iMii..M»i/iiinxiM..iii 

noooo; oo 

nr  ill-1 

00000.1  0 

\ r.r 

c 

l SPOP 
c 

l rcn  a .►  **r m r jrr  t » • i n spc  i list 
c 

spur  c ut  per  ire  i iititi  r ,»  r.»  tiv ,rnri  ( r .rnn  pi  ) 
l*Pl  U 11  Ml  ALIA*/) 
l *'T ‘ i.m  rsni  si ,»  tp ,i  t r ri  r, 

c:nwi  tm  ,i  Ni'i  sf  < i pc  i • t imi  sr  ( um  i «r  ( ri  st ( i co  i *prhc  si  < i no  i 

ir  d’tM  ,n  . n i ct  ir  9001 

PPPF  l.psPSMi  *.T  |PTM  ) 

pst»i  :;t  cptp  i o 

POP  7 IV: TlML^T  <1  T M ) 

T T VLST ( PTR ) = 0 . 

POP)  II  = F UF  LsT  (F  IK  ) 

nil  i st  tptr  > : n. 

POPI’I.M  sPhul  S 1 ( PH*  ) 

rwi  STirrrc  i : n . 

PTh  = F IK- l 

wrtuKN 

voo  i r'chf  n = - 1 
PTRSQ 
nr  !um, 

- rnc 


n M*rn*»rj  list 

% 1 l I ( PL  vvy ) 


c 

c 

c 

c 

X 


f TOP 

RfAD  TOP  Nl'VHfR  I Ml  * 

I Ml  I (.1  M I UM(  1 U N 
'Wl  I r I T TTCTt'M  RIA-4  1 
pnvv(  r. /rspfv^/i  T»v  ,PMi|  si  < loo) 

tTGT’il’SMt  ST  ( P TH  ) 

Rf  TURN 
T MO 
STACK 

rnnrs  rix  Two-rrr,rT  epoor,  taint akci  , aap  wnnr 
MX-PIGIT  MllMpf  K Of  TMI  Foil*:  «(,M1NN*. 

inti  mm  him  tuin  stack  i group*  inst  .nopt  ) 

I VI’L  I r T T PJTCGUUA-/1 

STACK:  1 0 00  0 • OK  Cl/P  ♦ I ell  ♦ I AST  *NVUt 

ttt  TVKTJ 

f.mp 

SgROUP 


i a to  nwr 


IMTI  Of  M F UNC  T IDA  ftGKPUP  ( / ) 
I*Pl  1CIT  TNTrntH  ( A-<  ) 

S GMOUP=// 10000 

Rr  TURN 

rMD 


o o o on/?  o 
ciono  o«*  sc 

OOOOOi'MO 
nonce, so 
OOOortPfiO 

onnoo/To 

onnno?Mi 

onnnnpso 
o o o o o 5 o o 
o n r n o 3 1 <; 
oonno3Pc 
n c n c o 3 3 c 
non no  34 o 
oonoo3su 
0 0 0 0 0 3 #i  0 
o o n n o 3 7 o 
00000300 
( 00  0 0 390 

nnnnnuon 

00000410 

ornooMPo 

00000*430 
none  0 u 4 o 
none  o*4  r>o 
onnnouro 
u 0000*4  7c 

o n o n tm  p n 

0 0 0 0 0*490 
nmoDr'iu) 
ooooomo 

r.rnnospp 
0 0 0 0 05)30 
nnnnos40 
0 0 OOOT'SO 

nnnnosAO 

0 0 0 0 0 S 7 0 
nnnno*>Rn 
0 0 0 0 0 S 9 0 

nooooGon 

onrooMn 

nnonoopo 

OOOCOt 30 

nnnopsuo 

nnnoofcsn 

nonoocM) 

0 0 0 0 0 C 7 0 

oonooKRn 

0 0 0 0 0 K 9 0 

onono  7on 

00000710 

oonoo  7po 

00000  730 
00000740 
00000 7S U 


c 

L $ 1 NST 
C 

l 

INTEGER  FUNCTION  *IUST<2) 

IMPLICIT  INTEGER<A-2> 

HNST=?/100-(7/1000u)»100 
RF I URN 

- m d 

c 

C JNOOE 

C 

C 

INTEUFR  FUNlTlON  »NU(f(2) 

IMPLICIT  INTEGER  I A*D 

SNOnE=2-(//10G>»100 

RTTURN 

EMU 

C 

c 

c imovmp 

c 

C FINOS  HIGHEST  (CLOSEST  Hi  TOP)  OVERALL  NCOF  ON  PUSHDOWN  LIST. 

C TOP  Of  PUSHDOWN  LIST  IS  ASSUMED  TO  Hr  A GROUP  NOOF . 

C 

INTEGER  FtlTJC  T I ON  4WGVNG ( DUMA Y > 

C 

IMPLICIT  INTEGER ( A-» ) 

COMMON/PSHDwN/PTR.PSIU  ST ( 100 ) 

C 

00  10  1=1.100 

- rrrPSRLSTiPTR-iT.rT.inoooiGOTo  ?o 

10  CONTINUE 

20  *HOVND=PSHLST(PTR-I 1 

RETURN 

end 

c 

C ” 

c 

C iPRVTM 

c 

c FINOS  TIMF  OF  THE  PREVIOUS  (CLOSEST  TO  TOP)  TASK  ON  PUSHDOWN  LIST. 
C 

FUNCTION  SPTFVTM  (EJUMMTT “ " 

C 

IMPLICIT  REAL(A-7) 

INTEGER  I.PTR.PSHLST 

COMMGN/'PSHOwN/PTR.PShLSTdOO)  ,TIM(  ST(IOO) 
c 

urn — r=Tnoii - 

IF( (PTR-I).LE.OIGO  TO  30 
TTTTIML ST(PTR-I).GT.O.)GOTO  20 
10  CONTINUE 

20 JPRVTMiTIMLST (PTR-I ) 

RETURN 

-3IT  *PFVTH=CT.  “ 

RETURN 

“END 

c 

c JCKOAT 
C 


nnnno7AO 
OOOOOTTO 
000007R0 
noono79u 
ononoaoo 
oonnoaiu 
00000820 
00000830 
00000840 
00000830 
00000860 
00000870 
00000880 
00000890 
00000900 
00000910 
00000920 
00000930 
00000940 
0000095(1 
00000960 
00000970 
00000980 
00000990 
00001000 
00001010 
00001020 
00001030 
00001040 
0000 1 030 
00001060 
00001070 
00001080 
00001090 
00001100 
00001110 
00001120 
00001130 
00001140 
00001150 
00001160 
00001170 
00001180 
00001190 
00001200 
0H0012V0 
00001220 
00001230 
00001240 
00001250 
00001260 
oowomo 

00001271 
00001260 
00001290 
00001300 
00001310 
00  (TO  1311 
00001312 
00001320 
00001330 
00001340 
00001330 


C LINK  DATA 

C 

C FOR  A GROUP  LINK:  HI  TURNS  PROhAEi  I U I T Y . IIMr.  FLf  L USED. 

C 

SUBROUTINE  »LKLAT  I GROUP. INST  .NOflf  1 . NCDF 2 . EKPROH . L K T IM!  .LKFUFL  1 
IMPLICIT  REAL1A-?) 

INTEGER  I.J.K 

INTEL!  R NODt  1 . NODE 2 . GROUP  . I NST  . ROm  . (.PDA  T 1 . GROUP  1 
INUGFR  NS!  AR  1 . NSF  AK2  , ICISP, IUSPO 

DIMENSION  GPlPU ( 7 . 7 t . GP?Pft  < 3 .1 ) . GP3PR  (9.9(«GP9Pfi(3.3) 

C I RL  NS  ION  GP7POl3,3l .GP8PM3.3) .GP5PP(fe.fe> .GP6PR(5.5) 

OIRENSIoN  GPllPBlJ.i ) .GP12PB  I 3 . 3 ) . GPSPR  ( 9 , 4)  , GP1  OPR  ( 9 . 9 I 
It  I Ml  NS  I ON  GP15PPI9  .9  ) . (,P  1 bPli  ( 3 , 3 I . GP 1 3PR ( 2 . 2 I .GP19Pb(?,2) 

E I MENS  1 ON  GH7PU(9.9  ) .GPlBPb<6.6)  .GP90Pb(9.9)  • CiPRSPb  ( 9.9) 
DIMENSION  S(  EEC<9  I ,CF  TNAM18!  .Mf  ULRT  <9  I 
C OMMGN/GPPAT  A / GPDAT l 14  0.?) »GpnAY?(4 0,181 

COMMON/PAR  Aw  / IL  ISP.  10SPL  ,LF  TNAM  . SSAV/G  • SPEED  . wrULRT  . TOmSPO 
C 

C GET  ROM  OF  GROUP  AND  INSTANCE 
GPCUPl =gROU! 

IF (GHOUP.FQ. 90) GROUP 1=10 
ir I GROUP . TO. 93 JGROUPIrl 3 
DO  100  R 0 M = 1 .100 

IF  (GPP  ATI  (ROW.  1 ) . EG.  GROUP  1 .AMI.  GPOAT1  (ROW.?)  . F 0 . INST  ) GOTO  POO 
100  CONTINUE 

C 

200  LKTlMfro. 

LKrUEl=0. 

IF (GR0UP.FG.90 1GO  To  90 
IF (GROUP. FO. 93)60  To  93 

GOTO  (1. 2. 3. 9. 5, 6. 7. b. 9. 10. 11. 12. 1 3, 19, 15. 16. 17, 18! .GROUP 
C 
C 
C 

C 1.  ASSIST  GROUP 
C 

1 CONTINUE 

DATA  GPlPfl/7»0.  , 9?. .?»0.  ,?*1  . .0.  . 1 . . 91.,6«0.. 

X2k0..1,,9#0.»  93.  ,6*0.  . 99  » . 6*  0 • . 5*0.,]».0./ 

' GPlPr<n.2l=GPr>AT?(ROh.?l 
GPlPIM  1 . 3)=GPUAT?(HuK. 1 ) 

GP1PR  ( 1 . 5 ) -GPl  AT?  ( HUM  . 3 I 
C.PlPh  (1,6)  =GPUAT? ( RUm  .8  1 
LKPRGPSGPIPP (NOCF I .N0PF2 ) 
iruKPRoo.t (..o. ) Rt  turn 
ii?  irtNcnTi.Nr.i.op.Nourp.Nt .?>  goto  113 

T9=GPIAT?IROM.b) 

LKTIRF=T9*$SKT IM( 1 ) 

LKFU!  l=LKT  1M(  »MFULH  I ( 9 I 
RETURN 

113  IT  (Ivl'PF  1 .Nt  . 1 .OR.NCul  ?.NL  . 3 ) ol  TO  115 
TlSGPPAT?(R(iW.51 
LKTIWFsIl»»SKTIM(?)*tWNTIM(?l 
LKFUFL=LKTIWE  *MFULPT (9 ) 
re  turn 

115  rrtNODFl.NE.l.OR.NOotp.hE.S)  GOTO  life 
T5=GPPAT2(ROM.91 
LKTTWTn,5»*SKTIM(81  ♦JMNTIMIR1 
LKFUf  l =1  KTIME  • MFUIRT  (8  » 

RETURN 

life  ir(N(.nf  I.Nf  .l.OK.NOuEP.NE.fe)  goto  138 
TA=GPPAT2(ROW.10) 

LKT  1 Mf  :lb»»sKT  IM  ( 7 » • »VNT  |W  ( 7 1 


nnoni360 

00001370 

00001380 

00001390 

00001900 

00001910 

00001920 

00001930 

00001990 

00001950 

00001960 

00001970 

00001980 

00001990 

00001991 

00001500 

00001501 

00001510 

00001520 

00001530 

00001590 

00001550 

00001560 

00001570 

00001560 

00001590 

onooifeoo 

nonoifeio 

onooib2o 

00001630 

00001690 

00001650 

00001660 

00001670 

00001680 

00001690 

00001700 

00001710 

00001720 

00001730 

00001790 

(10001750 

00001760 

00001770 

00001780 

00001790 

00001800 

000111810 

00001820 

00001830 

00001890 

00001850 

00001860 

00001870 

00001880 

00001890 

00001900 

00001910 

00001920 

00001930 

00(101990 

00001950 

00001960 


I 4-1 


\>  n ^ 


LKFUllsLKTIKl*HUILKUm 

return 

134  IF  (NUDE  1 .Nt  .3.0R.N0UI  7.NC  .4  ICC  TO  14? 

TProPnAfJTTToK.bl 

lktihfm? 

IKFull  :IRT  I Ml  »RT  UlR  It  4 ) 

Rf TURN 

14?  ifinOoEi.m  ,4.0h.n0ui?.ne.?)go  to  i*? 

1 3=GPnAT2(R04.7 ) 

crnwr»TS > i^Tiurg  v»tmTi»T?i 

UFUl:!  RTI*l»MFUl.Hl  (4) 

RETURN 

167  IF(Nl/ntl.NC.6.0R.N0ut?.i,l.7>G0  TO  17? 

T?  = C(  PAT?(Hl  4.11  I 
LtlTirn  = T 7 

c*n;n  si  KTTRr.FnriPTuv 

Rf  TURN 

177  ir(N0rFl.Nf»7.0R.NCL.[7.NE.?>(.G  TO  199 

T8-U  n»T?lR(;«.l?l 
l>TI(«rsTB»tSKTIN<71»»MMtR<7> 
l*FUl  L slKTIRl  «RF  ULR  I t 4 1 

ITTDFII 

199  RETURN 
C 
e 
c 

?.  ESCORT  CROUP 
CONTINUE 

PATA  6F?PR/3*b..  91..C..1..  97  • • ?• 0 • / 

GP?PI>(  1 .?I=GPI  AT?(RUK.l  I 

cp2pe.  n.3i  sf'Pr.AT?  < r^w . ? i 

LKPROHsr,H?PI.(NOtiri  .I.OPF  7) 

Tru'KPHOU.rr..o . 1 return 

?1?  IF  (NODE  1 ,NL  . l.CR.NO.,1  7.NE.2  ICO  TO  ?I3 

Pl=GPnAT?(ROR.31 
W1-CPOAT?(ROI»,4| 

LKTIVf  =D1/V1 
LKFUll  =UKT  iRf  «RF  ULR 1(31 
RrTTJRTT 

? 1 3 IT  I NCPE 1 .Nf . 1 .OR  <NUt  IP.Nt.3ICO  TO  ?■»  9 

r7  = CPnAT2(R0U.'j) 

LRTIPr=n?/SPLl  C(?l 
UKFUT  l =LKTTWC •VrULHl (PI 
return 

7TJ  RrTnPN-- 
c 
c 
c 

t 3.  FIPHT  FIRE  CROUP 

c 

"3 — • -cTTAmNur  

OATA  F,P3Pn/4»ll.  . 97. <7*0. .1..  91. .3*0..  7*(..1..0./ 
GP3Pb(  1 .2)SC.FT>AT?(RUW.?I 
GP3Ph(  1 .31=C(‘(iATP(RoW.1  I 
LKPRCP^CPSPMNOni  l.ucor?) 
if ( i KPRoo.ru. n. irf  Turn 

TriNurrT-.MC.i  .on.  urrr?.Nr.?icn  to  sis 

T4  = GP0A  T2  ( Hub  *b 1 

LRTIMr  - T4*1SKTIR(7)  • lwNT  IM7) 

IK(  U(  L =IKT  IRE  • MFUIH  I ( 4 ) 

return 

313  1FIN0UE1.M..1  .OR.  I.Orl?  ,l«l  . 3 HO  TO  334 


(10001970 

00001980 

00001990 

00007000 

00007010 

onoopuPu 
00002030 
00002040 
00007CS0 
00007060 
00007070 
00007060 
0000709U 
00007100 
00007110 
00002170 
00007130 
00007140 
00007130 
00007160 
00007170 
(10007160 
00007190 
00007200 
00007210 
00007220 
00007230 
0 O00224Q 
00007250 
00007260 
000077  7u 
00002280 
00007290 
(1(1(107300 
00002310 
00007370 
OOOOP33C 
0 0 0 0 P 3 4 0 
00007350 
00007360 
oor.o?37u 
00007380 
00002390 
0000740b 
00007410 
00007470 
00007430 
0000P44 J 
0000P450 
00007460 
0(1002470 
00007480 
OOOOP490 
00007500 
OOOOP51 0 
00007570 
00007530 
00007540 
00007530 
00007360 
00007370 
00007380 
00007590 


1 4 S 


.u 


' h t i v t < i *i^f. rif  ( «■ 

k l *RFUl  ) I ( M ) 


334 


3*4? 


3 in 
L 

c 

( 

C 4. 
L 

4 


4 1? 


,1>W  , 
.*4  ) 


if  r r «-  .u  • *4  k c to  *4? 


413 


49? 

C 

C 

L 

c 
c 


U=r.|  ! Mr’  (» 

LKUM  = T l •*' 

LHFLtl  -IMP 
RFli  l*r 

If  (i.C  lit  1 .hf  . 3 
T?;r,>  l a T*  |Rr. 
l*T  !*► =T? 

LKI  I IISIMIM  IMUUMIUI 
HF  Tl Hr 

mvcm  .cr.t*  .or.  *.ri  r?.T.r.?»(-r.  to  >9s 

T < = Oi  r Mr'im  m‘  I 
l *»  T i M = T 3 •! v K T ] P (?)•$«  r T I N ( «r  ) 

LKF  Ul  l =t  KTlf  t Ul»'  1(4) 

PTTL'Kl. 


ilfm  if  y groi  r 
cnr  T I ijLT 

lata  «fP4fh/5*0«»  ?1  «•()••!••  9 />.*?•()./ 
rr^rr-Ti  ,?T^rPrAT?(T7T:w  ,1 ) 
l*P4Pt  l 1 . 3)=uPl  *>T,'|H,  *,,•) 

LKPRC^GPfcP)  ( MC LFl  • <rPF  2 ) 
ir  (LM'h'",i  i..u.  » Mf  T.Hr 

irwwTi.nr.i  .ch . .ltu  .t.f  .2)cc  to  4i3 
TSf*D  1 2GPPAT?<  W(  ,3) 

" r?-  rn  ?rr  rrvT7 1 f c w • u j 

WSH  IPlsffPr  a T2  (KG*  .9  > 

ITT  I.vr  = fo5»‘Il  1 • T9»  If  1M  V/T  IMI  1 4 ) 

TPAVI  L = cr.SHp  1-1  . )*i  Si  11  1/ SHU  l (?) 

I KT  IVF  - 1TTTM'  ♦ THAVF  l 
LKf  Ull  = LKTlKf**FUl h \ (?) 

ptttirt; 

iriOUOf  l.Nf  .1  .OP.  '-trl  2.UL  .3  )GO  TO  499 
T?-GPT’A  T2  (ROW  . 6 ) 

L K T IMF  = T2**SMIM(14)*»V/T1*M14) 

LKFUFL-l  KTtvr*VT  ULKT  (?) 

Hf  TUM. 

" ?F  TOFT 


5.  insrrcT  group 


- ^ cornTnur — * 

TATA  GP5PR/6*C..  3*U,»1.«U.»1.«  91. .9*0. 
X 9?  • .9*0.  • 4*0.  .1  . .0./ 

GP5PL  ( 1 .3>=CPOAT2 IRl  W . 1 ) 

GP5PF 11.5) -GPUAT? ( ROW • ? ) 
LKPROM2GP5PhCf.OOrl.NOnF  * ) 

513  ir  (NOPt  1 .Mf  . 1 .OR.  N0rF2.M*.3)(.0  TO  519 
Tl 2GPT AT? (ROW . 3 ) 

LK  T I**F  =T1*$9KTIM(7)*JKNTIK  (7) 

LKFUtl 21KTTVC*PF  ULRT (4 ) 

RF  TURN 

tt5 — rrtrjuun  .Trr.r  vop~.  urrr? .rcr . 5tto  to  *=34 

T42GP0AT?(R0W,b) 

LKTIPF=T4**5KTIK(2  ) MVU  IK(?  ) 

LKf  un=LKTIM  *Rf  ULRU4) 

UPTURN 

534  IT  (NOPE  1 .Nl  .3  .OR.  i.OPt  2 • NL • 4 ) GO  TO  54? 


I 4 0 


. 1 . . 3 ♦ 0 . < 


00002600 
nnnoPbi o 
onnn?b?o 
onoo?b3o 
onoo?64o 
0 0002650 

nnoo?bGo 

nono?G7u 

nonn?beo 

onnn?69u 

OP00P70U 

00002710 

onoo?7?u 

00002730 

00002740 

00002790 

00002760 

00002770 

00002700 

0f00?790 

00002800 

onnoPBio 

PP002O20 
00002830 
00002840 
0000285 0 
00002860 
00007870 
000C2680 
00002890 
00002900 
00002910 
00002920 
nnno793o 

00002940 

00002990 

00002960 

0000297G 

00002980 

nnnn?990 

00003000 

00003010 

00003020 

00003030 

00003040 

nnnn3t)5o 

00003060 

00003070 

00003080 

00003090 

00003100 

00003110 

00003120 

00003130 

00003140 

00003150 

00003160 

00003170 

00003180 

00003190 

00003200 

00003210 

00003220 


T2=GPnAT2(R0b.4) 

LKtlME=T2 

LKFUEL=LKTIME«MFULR1  (41 

00003230 

00003240 

00003250 

Return 

' 00007260 

5*42 

IF(N0()E1.NE.4  .OH.  N00E2 .NE . 2 ) GO  TO  556 

00003270 

TS=gPT5Tt2)  Rob . 5 ) 

00003260 

LKTIRFsT3«»SKTIM(71»*MNTIH(71 

00003290 

— - — — 

XRTUEWlK  T 1 ME  .MFUL  (TT  ( 4 ) 

00003300 

RF TURN 

00003310 

55T~ 

~TFTN0ntl^r;5'  .OR.  imfiE2.ITC.6V  GO  TO  362 

''  00003320' 

T5=GP0AT2 ( Rob • 7 I 

00003330 

“ 

LKT1ME=T5 

00003340 

LKFU£Li(.KTIME»MFULRT  (it > 

00003350 

RETURN 

00003360 

5b? 

IF ( NOOE 1 • NE .6  .OR.  N0PE2 ,NE .2 t 60  TO  599 

00003370 

T6=GPfi»T2 (HOWTB ) 

00003360 

LKTINC ST6**SKTIM(2) OMNTIMIP) 

00003390 

~ J *•  ■ 

IKTUEl sLKTTVE»RFULRT ( 4 ) 

00003400 

RETURN 

00003410 

599 

rfturn 

00003420 

C 

00003430 

C 

00003440 

c 

00003450 

C 6. 

R0N1TGR  GROUP 

00003460 

c 

00003470 

CONTINUE 

00003460 

DATA  6P6PR/5*  0 . « 91..0..3M..  92.»4»0.« 

00003490 

~ • **  ~ 

Tf  93T. 9»  OY.  94.  ,9  *0  . r 

601)03500 

6P6PHI 1 ,2)=GPUAT2(Rob.l ) 

00003510 

GP6PF)  (1,3)  =6PDAT2  ( RCU  . 2 ) 

00003520 

GP6P0 ( 1 « 4 ) =0PDAT2 ( Kwb , 3 ) 

00003530 

GP6PE  (1.5)  =6PCAT2  ( RUV. . 4 ) 

00003540 

LkPRO()sGP6PFi(NOOE  1 .NOPE  2 ) 

00003550 

- - 

TFTLRPR'OB  .TO  • G .TRTTCiFN  ' ~ 

' --  00003560 

612 

IF  ( NOOE  1 .NE  . 1 .OR.  NOl't  2 .Nt  .2)60  TO  613 

00003570 

Tl=GP0AT2(R0b,5) 

00003560 

LKTIMEsTl 

00003590 

LKFUEL=LKTIRE»MFULhT (4 ) 

00003600 

HETURN 

00003610 

613 

ITTNOOE  1 .NE  . 1 .OR.  UCPEi  .NE.  3)  GO  TO  614 

00003620 

T2-G(*0AT2(R0b.6) 

00003630 

IKTIME  = T2 

00003640 

LKFULL=LKTIRE»KFULR1 (4) 

00003650 

RETURN 

00003660 

614 

IF (NOOE 1 .NE . 1 .OR.  KOPT  2 .NE • 4 ) GO  TO  615 

00003670 

• 

T3TGPDAT2  ( ROW  , 7 ) 

00003680 

LKT IM( =T3 

00003690 

l KFUt LsLRTIME  *MFULRT  ( 4 ) 

00003700 

RETURN 

00003710 

615 

tr(N0OEl.NE.l  .OR.  K0nE2.NE.5lG0  TO  699 

00003720 

T4=GP0AT2 (R0b.fi) 

00003730 

* ■ 

ER7IMT =T4  ' ~ ' - - - — - 

00003740 

L«FUEL=LKT IMf •MFULRT (4  ) 

00003750 

RETURN 

00003760 

b99 

HETURN 

00003770 

C 

00003760 

C 

00003790 

c~ 

•**  “ — — — -•  • - — ’ “* ' 

' " 00003800 

t 7. 

PATHOL  GROUP 

00003610 

C 

00003620 

7 

CONTINUF 

00003630 

CAT  A (,P7PR/3»G..  9I..0..1.,  92.  ,2»0./ 

00003840 

6P7P(.ll.2)s(.PLAT2(Rub.l  ) 

00003850 

•1 

* 


« 
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GP7t-t;(  1.3)-(.P(AT2(RuR.2) 


00003660 


LKPR0H  = 6P7P.'  (i»0l)f  1 tiiOn  2 I 
IT UKPHOB.EO.b. ) RE  TURN 

ir  iuont  l .me  . 1 .op.  i.ort?.or.?)bn  ro  7i3 
01=01 OAI2IROR.3) 

Vl=bK  A T?<Rb».4  ) 

L K T I PI  =D1/V1 
LKFbEE=lKTIRE • REULHM3) 

HF  TURM 

713  IF ( NOPE  1 .M  . 1 .OP.  HOPE ? .ME . 3 ) GO  10  799 
C2  = GPCAT?<Hl,R.5) 

LKTIRt  = 02/SPF  F 0 ( 2 ) 

LKMUL  =IKTI»[  »RF  UL  P 1 ( ? I 
HrroPN 
799  RETURN 
L 
C 
C 

C 8.  RESCUE  GROUP 
C 

a COM  1NUF 

DATA  GPAPH/3»0.,  91.  .0.,  I.,  9?. ,2.0./ 

GP6PL ( 1 .? 1 =GPBAT? (KbR . 1 ) 

GP8PB(1.3)=GPfiAT2<Hutv.?> 

LKPHCn  = GP8PMN0DE  1 .i,0l'E2> 

IT (LKPROB.tb .0. IRE  TURN 

bl?  IFINOnCl.NC.l  .OH.  NOPE 2 . NE . 2 » GO  TO  P13 
T 1 ^GPEA T? ( RC  R . 3 J 
LKTI«F  = T1*SSKTIR<4)*SRNTIM4) 
EKFUEL=LKTIPr»PrULPT(‘4  ) 

RETURN 

813  iriMOOEl.NE.l  .OR.  I.CPC?  . ME  . 3 ) GO  TO  899 
T2  = GPrAT2<Hr,R.4> 

LKT7Vr=7?*SSKTIM(4)*$MNTIM(41 
LKFUEL  =LK  TIRE  »PFULR  U<*  1 
RETURN 
b99  RETURN 
C 
C 

C 9.  RESCUE  RETURN  bHOUP 
C 

9 COMTIMUE 

DATA  GP9PR/4  * 0 • • 91.  .0.  .2*1. • 92. .3*0..  93.  .3*0./ 
GP9PB ( 1. 2 >=GPO A T21RUR.il 
”GP9PBTT’i  3T  = GPT  AT?  (ROV.  2 1 
GP9PBI 1 .4 )=GPOAT2(RuR,3) 

IKPR0H=GP9PH ( NODE  1 •NODE  2 ) 

IF (LKPROB.EU.O. IRETuhM 

>91?  TE ( NODE  1 .ME . 1 .OR.  N0PE2 .ME . 2 ) GO  TO  913 
01=GP0AT2IRGR.4) 

ETTrTWT'TrnT/TOWSFD 

LKFUEL=LKTIWE»RFULRT ( 3 I 
RETURN 

913  IE1MOOE1.NE.1  .OR.  M0rE2 .ME . 3 ) GO  TO  914 
02=GPnAT2(R0W.5> 

V2=GPDAT2(R0R*6) 


LKFUEL=LKTIRE*RFULRT(3) 

RETURN 

914  IE ( MOPE  1 • NE ■ 1 .OR.  NCPE2 .ME . 4 ) GO  TO  999 

trsrGPTTAiriRow.n 

LRTIRE=O3/SPEE0(2) 


00003370 

00003880 

00003890 

00003900 

00003910 

00003920 

00003930 

00003940 

00003950 

00003960 

00003970 

00003980 

00003990 

00004000 

00004010 

00004020 

00004030 

00004040 

00004050 

00004060 

00004070 

00004080 

00004090 

00004100 

00004110 

00004120 

00004130 

00004140 

00004150 

00004160 

00004170 

00004180 

00004190 

00009200 

00004210 

00004220 

00004230 

00004240 

O0004250 

00004260 

00004270 

00004280 

00004290 

00004300 

00004310 

00004320 

00004330 

00004340 

00004350 

00004360 

0 00  0 4T70 

00004380 

00004390 

00004400 

00004410 

00004420 

000049311' 

00004440 

00004450 

00004460 

00004475 

00004480 
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■ 


LKFUEL =LKT IME *NF ULRT (?) 

HF  TURN 
999  RETURN 

T 

C 

C 

C 10.  SAR  SF ARCH  GROUP 

c "Success 

10  CONTI NUF 

F7rr7rc;nof>Tt/i*.orr  '7.frrrmr79?T;  -jrrvs*®  7. 

X 92. .3*0./ 

GPlflPll  1 1.3)  =GPGAT? 1 kCita « 1 ) 

GPlOPf)  ( 1 • 9 ) = GPDAT2 1 Him  ,2  ) 

"Swis&pc at?  t row  . y>  — 

Al  = GPnAT2<Rt)W.9) 

rjRrMTf = GPtTOTTTRTiVVS 1 

CFl=bPCAT?(R0w.6) 

TMATTr GPDATPTPOW • 7 ) 

SW2iGPCAT2(R0*,8l 

A7iGF0AT2 I ROW . 9 I 

NSlAR2  = GPnAT2lR0W,ll. ) 

Cr7='GPCTST7TF  GG  TIT  1 

TPAX2=GPOAT21KOW.l?l 

“CALL  S5PETTU I SFTFD . 1 ■ A 1 .1.SC Aft  1 . Ct  l.THAXl.PSl.PFl.TSl.TFll 

CALL  *SPtDU(SPtlD.S..2.A2.NStAH2.CF?.TPAX?.PS2.PF?.TS2.7F?) 

GP10PRT  3«  2 ) iPSl 

GP10PP(9.2)iPS2 

rTFPROT'itTTOP'BTTJroFl  Vh^LCTZ ) 

IF  (LKPHOB.EU.l).  ) RETURN 

1032  “TFINOCEI.NF.S  .OR.  N0CE2.NE.?)G0  TO  1092 
LKTI*F=TS1 

LKFUF  l =1  KTTNE*RFULRT  1 3 ) 

return 

ioT?“--rrTRcmrr.“wr.,r  .or.  wont ? .ne . 2 ron'T  0 to 99  “ 

LKTIKE=TS2 

LKFUEl=XKTIME»PFULRT  131 
1099  RFTURN 
C 
C 

C 11.  SEARCH  FLF  t T GROUP 
"C  * 

11  CONTINUE 

“OAT A GPllPn/?»0..,  1..0./ 

LKPRORsGPllPBlMiDEl  .NC.0E2) 

rr , lkfrob  ; nr.  0 . mr torn  - - 

1112  IF (N00F1 .NE .1  .OR.  NGrF 2 .NE .2 » GO  TO  1199 
niiGFnAT21R0W.il 
LKTINF=Dl/SPCF.  0(2) 

LKFUCl sLUT IKE* RFULRT  1 ? ) 

Hf TURN 

IT99'  'RETURN ' ~ 

C 

C “■  ' 

c 

C TZ.“  SEIZE  GROUP 
C 

T2 CONTINUE  ~~ 

DATA  GP12PU/3*G . . 2*0..1.<  1..2*0./ 

LKPRORiGP)  2F-B 1 NODE  1.NO0E2) 

IFILPPHOB.f  G.U. ) RE  TURN 

T2T3  TFlNONEl.NE.l  .OH.  uCPEZ .UE . 3 )G0  TO  t?3? 

TliGPfjATZ  (ROW  . 1 ) 


00009990 

00009500 

00009510 

00009520 

00009530 

00009590 

00009550 

00009560 

00009570 

“ oboowSao 

00009590 

00009600 

00009610 

00009620 

00009630 

' <5flffiP*59b 
00009650 
00009660 
00009670 
00009680 
00009690 
00009700 
00009710 
00009720 
00009730 
00009790 
00009750 
00004760 
00009770 
00009781) 
00009790 
00009800 
0000  tOlU 

omin40?o 

00009830 

00009890 

noonotso 

00009860 
00009870 
00009880 
00009890 
00009900 
00009910 
0000992C 
00009930 
00009990 
00009950 
00009960 
00009970 
00009980 
00009990 
00005000 
00005C10 
00005020 
onoososu 
00005090 
00005050 
00005060 
00005070 
00005060 
00005090 
00005100 
0110051 10 
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l K T I Mf  = T 1 

00009120 

L«IUlt  -t.KT  X ».  L .Hf  ULP  11'.) 

nnni)‘)130 

rf  Ti  m 

00009190 

1237 

jnrtirn.M.3  '.OP.  .urt  2.M  .2  tun  to  l?99 

00009190 

r?sG»  r A T2  ( Hr (m  ) 

00009100 

IKT  I v>  l L ( 2 1 

0000917O 

LKlUU=U'TlAf*KfULPI(2» 

r°.no5lrto 

Rf  TLRh 

00009190 

1299 

«r  Tot' 

nnnofurou 

c 

’**"**  **"  ‘ 11  1 “ ' “ ' ‘ *"*"  ” " " 

00009210 

c 

00009220 

c 

00009230 

L 15. 

SrtiSLW  SI  ARCH  GRCUP 

00009290 

C TPIS  CROUP  9U5T  AILAYS  .'CllCft  A MfAM  GkCUP. 

00009290 

C SLCCICS. 

nnno‘-P6G 

1 J 

TUKTmT'  ~ 

00009270 

LATA  fp  1 318/2*1  . . 99., 0./ 

00005*80 

PW rCPrAT2TP0W.il 

00009290 

l = CPLAT2  (ROw  .«•  1 

00009300 

VTAH  = r*PnAT?(Rr,W.3) 

01100931  0 

TPAX:r.tT)AT2lR04.4)  00005320 

lElTttFffVTB  ( IT,  r — ~ 00005330 


call  f 9sht<  ( SM  10.  Tt  t f . 9*  ,t  . VT  Al  . TVA«  .PS.PP  . TS.TF  ) 

Cri3P, 11 .7):PP 
l KOROP-Gt  1 38PIN0DC  1 .t  ( 1 L 2 t 
ir  (LKPRon.rt..o.  irctupa 

LKTfvf  =rs 

00009340 

00009390 

onmi9360 

00009370 

00009300 

TTPrurt  ^tKTiwrrPTuvHTrpi 

nnnn559o 

1599 

RF  TUM 

nono5400 

C 

00009410 

c 

onoti54?o 

C 

00009430 

C 19. 

ST  ANGRY  GROUP 

00005440 

t 

00009950 

14 

CONT  IMJf 

00005460 

DOT  A GP14PtV2*0.  . I..0./ 

00005470 

LKPhOP  = r.Pl9PH  ( NUOt  1 .MODI  2 ) 

00005480 

IT (LKPROP.rt. 0. 1RFTLB A 

00005490 

1 4 1 2 

IMNGnn.Nt.l  .OR.  uCrf  2 .N{  . 2 > GC  TO  1499 

00005500 

'TT-C!’rrAT2TRr/r,  1 T 

~TnHnJTT5T0 

LKTlAr=Tl 

000055*0 

...  — 

LKruri  - lkttat  *rfulr  t iu  t 

00005530 

return 

00005540 

1999 

RETURN 

00005550 

c 

00005560 

T 

nn no 5570 

C 

00005580 

C 15. 

STEAK  CROUP 

00005590 

c 

00005600 

r15 

CONT  I NIT 

00009610 

LnTA  GP15PU/4»Q. . 9 1 . , 0 . . 2*  1 . . 92. .WO..  93. .3*0./  00005620 


r.TT  _ — nnnti5630 


1512 

GP15MTI1 . 3)=GRCAT?(RLi..2> 

GP15PR (1 *4)=GP0AT2tHCW,3) 
LKPRCP-GP I 500  t AOOt 1 . A.OOI 2 ) 
irtLKPRnB.FG.O. 1RFTURK 
iriNOPEl.NE.l  .OR.  N0rE2.NC.2tG0 

TO 

1513 

00005640 

00005650 

00005660 

00005670 

00005600 

u l — G 8 G A 1 2 i kuIT,  4 1 

THTTTn56TD 

lktiki  =ni/sprfo<2) 

00005700 

* - 

IKFUEL=IKTIWE*NFULRT 12) 

00009710 

RT  TURN 

00005720 

1513 

rrrnorn .ntt.i  .or.  NcrE?.Nr.3tG0 

TO 

1514 

00005730 

02-G8PAT2(Rnt*»5t 

00005740 

ISO 


LKTINE=D2/SPEED(1 1 
LKFUfl  =LKT IME*RFULHT ( 1 1 
RETURN  

T5TT  IT < hunt  1 . NE . 1 .Or.  i.GnETTlSE . 4 ) G0~fO  TS'9'9 
D3=GPOAT2tROW.6> 
lKTlME=03/SPtFD<ll 
i.KFUEl=LKTI*E»NFULR  Ml) 

*RCTOW  * 

1599  RETURN_ 

C 

C 

C 16.  TRANSFER  EQUIPRENT  GROUP 

16  CONTINLF 

• tr)mr-5Pr6PB/3*D7,  9n;or.r.V9?".,p*o./ 

GP16PR II.?) =GPUAT2 ( ROW « 1 ) 

GP16PBT1 . 3 ) =GPDAT2 ( RGfc . ? ) 

LKPR0P=GP16PBIN0DE1 .NODE  2) 

Tr  (LKPROO .EG . 0 . T RETURN 

161?  IF(NOOEl.NE.l  .OP.  NOPE? .NE .2 ) GO  TO  1613 

Tl'?GPTnrT2 TR(TW.'3)  " ~ ----- 

LKTIMf  =11**.SKTIN(7)»V»NTIR<7> 

LKFDEL  =UKTIRE  »PFULRT ( 4 ) 

RETURN 

1613  IF (NODE  1 . NE . 1 .OR.  NODES .NE .3)60  TO  1699 
T?=GPHAT2(RU6.4 ) 

CKTTF'FsT7»fKKTTWI7  ) » 1FNT IN  ( 7 )"  " 

LKFUEL=LATIN£*PFULR1 (4) 

‘ " RETURN 

1699  RETUhN 
C 
C 

C 17.  TRANSPORT  E QU IPKENT  GROUP 

c 

17  CONTINUE 

CTATA  GP17PB/4»0, « 92.,2»0..1.,  91. .4*0..  2*0..1..0./ 
GP171  B(  1.2)iGP0AT2(i<0l».2) 

GPITPBT  l *3  ) =GPE)AT2T  ROW.  1 ) 

LKPROP  = GPlTPbtNODEl .NODE  2) 

~ iriUKPROE.rf..O.  (RETURN 

1712  IF (NODE  1 .ME . 1 .OR.  NUDl 2 .NE . 2 I GO  70  1713 
D4‘=GP0  AT  2 ( ROW « 0 ) 

A4=UPUAT2<RUrf.9) 

W7.TPCPTAT2  CRC¥  .101  " 

LKT1MF=04/SPEE0(2) 

LRrUTL -LKT I NE  »RFULR  T ( 2 ) 

RETURN 

1713  ITlNODEl  .NE.l  .OR.  I.CDE2  . NE  . 3 ) GO  TO  1734 
T1=GP0AT2(R0W.3) 

LKTl>r=Tl»3SKTIW(7)»NRfiTIP(7) 

LKFutl.=LKTII»C»RFULRl  (4) 

RETURN 

1734  IF (NUEE 1 .NE • 3 .OR.  uUDE2 .NE .4  ) GO  TO  1742 
C2SGPE/AT2 1 ROW  .4 ) 

A2=GPDAT2(RU6.5) 

— W*SFfifT?(RI)tf.6J 

L«TI9E  = l)2/SFEf  C(2) 

LRFUEL=URTlMl  •MFUlRTt?) 

RETURN 

1742  IT (NODE  1 .NE .4  .OR.  N0rE2.NE .2 »GO  TO  1799 
T3=G) 0AT2(R0h.7) 


00005750 
00005760 
JI0005770 
" 00505760 
00005790 
00005600 
00005610 
00005620 
J)0005830 
00005640 
00005650 
00005660 
00005670 
00005880 
00005890 
00005900 
00005910 
00005920 
00005930 
00005940 
00005950 
05505960 
00005970 
0000598C 
00005990 
00006000 
00006010 
~ 00006020 
00006030 
000G6C4C 
00006050 
00006060 
00006070 
' 00006080 
00006090 
00006100 
00006110 
00006120 
0 0 0 00  30 
OO0U6140 
00006150 
00006160 
00006170 
00006180 
00006190 
“ “ 500G6200 
00006210 
00006220 
00006230 
00006240 
00006*50 
00006260 
00006270 
00006280 
00006290 
00006300 
00006310 
0000632D 
00006330 
00006340 
00006350 
00006360 
00006370 


! 


J 
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IKT  14f  - I 3*»SKT  1M<  7 » IIUNIIII  ( 7 ) 

00008380 

LkFUc.i=LKT14E*KEULRU41 

00008390 

RETURN 

00008400 

1799 

RETUM" 

00006410 

C 

00006420 

t 

00006430 

C 

00006440 

L 1 H . 

work  fguip«(  nt  g roup 

00006450 

C 

00006460 

la 

CONTINUF 

00006470 

PA1A  GPltPH/b*0..  9.:. .2*0. .3*1.. 

si . 

.5*0.  . 

00006480 

X 2*0. .1. .3*0. . 93. .5*0..  94. ,5*0 

./ 

00006490 

6F18PH (1.2) r&PDAT  2 ( RGw .2  > 

00006500 

GIUPM'I  1 • 3)=GtJ(.AT2(»<OW.l  > 

00006510 

GP18F  rid  .5>=GPUAT2  (WCw.  3 ) 

00006520 

GPTBPffT  1 . A 1 =GPD7lT2TRGw7  9 ) 

“ ‘ 

0o(106530 

L KPKOP  =«.Pl  8PP  ( IV 0 Of  1 .7.0012) 

nnnub54o 

IT (LKPROR.EU.O. (RETURN 

00(106550 

1812 

IF (NODE1 .NE .1  .OR.  uCPF  2 .NE  ,2  ) GO 

TO 

1813 

00006560 

T4  = GprAT2(RCiW,8) 

00006570 

L K T 1 ME = (4*$4KT 1M( b ) 

00006580 

t KF"UE  l = L KTIPE*KFULRT ( 4 ) 

— — 

- - 00(106590 

Rf  TURN 

00006600 

1 «1 3 

ir  (IVCif. FI  .NC.l  .OR.  I'CPE2.NF. 3)0(1 

TC 

1815 

00006610 

T1=&PlAT2(MPW.0> 

00006620 

LKTIRr-Tl.»5.KTIM(7l*J»<NTIM(7) 

00006630 

LKI  UEl=LKTIWE*KFULH)  (4) 

00006640 

RFTURl 

07)006650 

1815 

iriNODEl.NE.l  .OR.  UOrt 2 ,NE . 5 ) GO 

TO 

1818 

00006660 

T5  = GPf.AT2(ROW.9> 

00006670 

LKTIKE=T5»$SKTIM(7I*SKNTIK(7) 

00006680 

LKFUEl-LKTIRE»MFUIRT 14) 

00006690 

return 

00006700 

1816 

TF  (TVOrn.f)F  .1  .OR.  I.CPET2.rvr.E)G0 

TO 

1834 

~ 001106710“ 

TG=GPPAT2< ROW. 10 1 

00006720 

lKTI*F=T6«t6KTI»(7>*iVNTIKI7> 

v. 

00006730 

LKFUEI  = LKT  I»E*KE  ULR1  t 4 ) 

s 

00006740 

RT TURN 

00006750 

1834 

IF ( NODE  1 «NE • 3 .OR.  u0rE2 . NE . 4 ) GO 

TO 

1842 

00006760 

T?rGFnAT2fR0W.6) 

07)006  770 

LKTIWF=T2 

00006780 

LKFUEI =LKTIKE  *MrULRE (4  ) 

00006790 

return 

00006800 

1892 

IT  (NOnn.NE.4  .OR.  N0PE2.NE.2IG0 

TO 

1899 

00006810 

T3  = GPP,AT2(ROW.7l 

00006820 

— — — 

X KTTWr-T3  *TRK  T rn  r7 ) * JWTIH  T7  ) 

— - ■ — 

0n006B3U 

lkfuel=lktime*wfulhi (4> 

00006840 

RETURN 

00006850 

1899 

RE  TURN 

00006860 

- C 

00006870 

L 90. 

SAH  SF ARCH  f,KOUH 

00006880 

rmnmr - 

0071066971' 

90 

continue 

00006900 

- 

DATA  GP90Pn/9*0..  9*0..  91. .8*0.. 

9P 

• • fl*  0 • « 

00006910 

X 9*0.,  9*0..  9*0..  9»n..  2*0. .917 

’.  .927.  .5*0./ 

(10006920 

GP90PB71 .3):GPCAT2(R0w.l ) 

00006930 

GP9  OE'P  ( 1 . 4 ) =G  GAT2(KC«.2) 

0000694U 

~3VXsspovTa  rmnn  tt  ■ 

00n0695o 

A1=GP0AT2(RGW.4 ) 

00006960 

N8FAM=GPDAT2(R0W.5) 

00006970 

CFl=GPCAT2(ROW,b) 

00006980 

TWAin  =7TPCAT2 (ROW .71 

57)07)6990 

Sw2=GPOAT2(RO».8) 

00007000 

A2=GP0AT2(RO4.9> 

NSC AR2=GPDAT2 ( ROW  « 1 0 ) 

CF2sGPCAT2(R0r,11)  

TmAx2=GPUAY2<R0n.12I 

CALL  *SPCnuiSPEED,S6l.Al,NSE AR1  ,CF  1 . TltAXl  ,PS1  .PF1 ) I SI  ,TF  1 1 

CALL  TlPl  DU  < $P t C C , S • 2 . A 2 . N SE  AR 2 • CF2.TNA  X 2 ,'p  S 2 . PF  2.TS2,  T F 2 » 

GP90PH(3.9)=PH 

GP^UPP 14*9) =PF2 

LKPROn  = GP90Pt)  ( NOOC  1 • NODE  2 ) 

1 n CkPH&B .Tii'.B.  JBf  Tufifi 

9039  IF  ( NODE  1 . Nt . 3 .OR.  I.0PE2  .NC  .9  > GO  TO  9049 

ijrnstvm  ~ 

LKFUCLsLKTI»E»WFUERT(3)  

‘ Rf YuRn 

9049  IF  I NODE  1 • NC . 4 .OR.  NOPE2 .Nl .9 > GO  TO  9099 

nmwrsrrr 

LKFUtl=LKTlME*RFULRT (3) 

RnORfT 

9099  RETURN 

L 93.  SENSOR  SEARCH  GROUP 

c -Tvrs  croup  -must ' at wats ~ron.OB~x-sTcaH  GHnur 

C FAILURE 

93 CONTTRUT 

OATA  GP93PB/72*0..  97. .8*0./ 

STr=6PrTA72TR0W.  I ) 

E=GPGAT2>R0».2> 

TPAX=GPnAT2(ROR.4 ( 

TFCFsiPftVTWTO) 

CALL  SSSMP(SP(E().TbU  . S*  .1  . V T AH  . ThA  » .PS  .PF  . T S . TF  ) 

~ - EP93FBfr.9I=PF  ~ 

LKPR0H=GP93Pb I NUDE 1 .NOPE 2 ) 

1 r I 1TKTTT CTO  '.TGTT1 . ) RETURN”  ' 

LKTIRF  = TF 

LKFUCE"nKTIVE*RFULRTI?) 

9399  RETURN 

c • 

L 

CNC 

c 

L STASK 

C RETURNS  NUMBER  OF  TASK  IaRATEI  UETfcEEH  T»0  NODES  IN  A GROUP 

SODROUTINT'  JTTSK  T GROUP  , NTJEJFT.'NOnE'JYT  AS* NO  . P ATr  > ' 

IMPLICIT  INTEGERlA-xl 

nmrrJSION  GP1TKI7,7).T,P2TK(3.3).GP3TK(4,4>.GP4TK(3,3> 

U I PENSION  GP7TM3.3)  .6P8TKI3.3)  .GP5TM6.6)  .GP6TK(5.5> 
DTRtNSION  GP11TK(?.2I .GP12TK E3.3I .6h9TK(4,4 I .GP10TK(4,4) 
DIMENSION  GP15TA (4.4)  .GPlbTK  I 3 . 3 > .GP1  STK  ( 2 .2  ) .(.PI  4TK  ( 2 . 2 I 

[TTWET9SION  GRT7TKT9  « ■nYGT’rBTKTKTKT .GP90TK  I9T9 1 « irP9TDCT  9 i9T 

C 

irt GROOP.FO. 90 ) GO  70  90 

IF (GROUP. F0.93)G0  Tu  93 

GOTOa. 7. 3. 9, 5. F, 7.8, 9. 10. 11.12.) 3. 14, 15, 16.1 7. IR) .GROUP 

C 

c i.  ass rsT  grtiup 

L 

1 'CONTINUE 

LATA  GP1Tk/7*0.  404 ,2*0 . 41 3. 0 • 0 .4) 6 . 401,6*0, 

")t  7*0.9TT.4*0.  4l4,o*0.  408.6*0,  5*11,411.0/ 

RAT£  = GP1Tk(N0UE1.N0i.I  ?)/U0 


00007010 

00007020 

00007030 

00607040 

00007050 

00007060 

00007070 

00007080 

00007090 

00007100 

00007110 

00007120 

00007130 

00667140 

00007150 

00007160 

00007170 

00067180 

00007190 

00007200 

00007210 

557757220” 

00007230 

00007240 

000(17250 

00007260 

00007270 

"7)0007280 

00007290 
G 0 0 0 7 3 0 0 
00007310 
00007320 
00007330 
~ o nr  07340” 
00007350 
00007360 
000117370 
000117380 
00007390 
"710007400 

0000741 0 
00007420 
00007430 
00007440 
00007450 
” TT(niG74RG 
00007470 
00007480 
00007490 
00007500 
1)0007510 

ntTOTI75?0 

00007530 

0G00754G 

00007550 

00 007560 

00007570 

Ti  n5  075  BG  " 

00007590 

00007600 

0000761G 

0(1007670 

iir.on7o3o 
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® r n n 


TASPNtlsi.Hl  Tt«  IMjDt  l.I.CI  l 21  - KAtF*10n 
KE  tUR\ 

c 

c r.  Esrora  group 

t 

p COM  1 Mf 

CAIA  GPpTk/3*0.  302.1.0.  *01.2*0/ 

RATErGFpTKIf.CI  f 1 .NObl  PI/100 
t askm  ( Nuni  i . .uiii  2 ) - hate* ion 

L 

C 3.  FIGHT  FIRE  GROUP 

l 

3 CONTINUE 

CATA  GP3Tk/M*0.  402.2*0.413.  401.3*0.  P»0.4C3.0/ 

RTlTTR^TTn^r.OTTT'.TTOrrPT/TOTI - - 

TASKNn  = GP3TMN0Dll.i.0IE2)  - Rttir*lOO 

RETUPT 

c 

C 4.  IUENTIFT  GROUP 
L 

“4  crrrcTTTJur " 

GAIA  GP4TK/3*0.  203. f.O.  202.2*0/ 

RATE  = GF4TKIN0r  El .NOLE?) /100 
T ASkM'sGPrTh  ( NOt'T  1 .NOPE2  ) - R A T F * 1 0 0 
RETURN 
C 

~C  5Y~  INSPECT  GREW-  ~ 

C 

5 CONTINUE 

CATA  GP5TK/t.*U.  3*0. 41b,  0.413.  40H.S»0. 

J 2*0.403.3*0.  401.3*0.  4*0.403.0/ 

RATL=GP5TH (N0LE1 .NObL? 1/100 

RETURN 

C - 

C 6.  MOM  II  OR  GROUP 
C 

b COM1NLE 

“Tpia  i;pbTK/»-»u'.— 4trR.urT*o.  stuvrton  ~4T7.4*rirr 

X 417.4*0/ 

RATE=GPbTK TNOUE1 .NOUE7T/100 
ta3M'.c=gPftk  1 node  i.KunE2i-KAif»ion 
RETURN 


C 7.  PATROL  GROUP 

t 

T CONTINUE 

JATA  6P7TK/3*0.  304.0.0.  204.2*0/ 
r RATC=GP7TK(NOCC1.NODE?I/100 

IASANO  = GP7TMNOnFl.i*Cl.E2)  - RATE*10R 
return 

8.  RESCUE  GROUP 

CONTINUE 

OAT  A GPhTk/3*0.  415.0.0.  414.2*0/ 

TASKNO  = GPPTk (NUDfl .N0rE2 ) - RATT *1 00 
RETURN 

c 

r R.  RESCUE  RETURN  GROUP 
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9 continue 

DATA  GP9Tk/4*U • 305.0.2*0.  302. 3*0.  200.3*0/ 
RATE=GP9Tk<  MODE.  1.NOUE2I/100 

TASi<"N6=GP9Tfn  wcmrrrucrro- - ~mre  *Tffn  

RETURN 

C 

C 10.  SAR  SFARCH  GROUP 

t SUCCESS  

10  CONTINUE 

tTATR  GP1‘ 0 TK7A. 0 .“  2 »G , J 0 3 . 30 1.  4 • 0 . 4*0/ 

HATE  = GP1 OTA ( MODE  1 ,NuUE?)/100 

TASKNO  = GP10TMNOOC1  .NOOE2J  - RATE*lftO 

RETURN 


SEARCH  FLFET  GROUP 
CONTINUE 

DATA  GPTITK/ 2*0.  205,07 
RATE=GP1 1TK ( N0UE1 .NUDE2)/100 
TASKNOiOPllTKINODETI  .K0DE2  J - RATE.1O0 
RETURN 


C 12.  SEIZE  GROUP 

12  CONTINUE 

* DATA  TPI2TK73*0.  '2*0, 201.  418.2*0/ 

RATE=GP12TK(NOUE1.NUDF2)/100 

TASKN05GV12TK  CKO  DO  CNtTDE7r  ““HATTfllTO- 

RETURN 


C 13.  SENSOR  SEARCH  GROUP 
C SUCCESS 
13  CONTINUE 


RATE=GP13TKINOCE1.NUDF2)/100 

TASRNn  = r.P13TKCKODrr.KODE2r  - R ATE  * 1 00 

RETURN 

C 14.  STANDBY  GROUP 


OMO*. 

non**/* 

MMAZ4I 

ARMI1I I 

a**»*ll< 

*••••*»• 

• ll*0*S4. 

• 0*0*  S* 

• a*MS* 

on* a*3* 
O0PO*>«. 
noon*. o i 
na***. t . 

If ||V*9 I 

• M0**«* 
ll|IH«l 
4*  Of  C0%4  J 

OOIII* I I 

aaa t 

IMMM4 

e **»•*•« 

I0IHM4 

lOllt^M 

IflllMc 

^tmr 

COCO#* X 4 

•Of 


l v j i fY-U  7 A 


RAT£*GP16TK ( NODE 1 .NODE  21/100 
T ASKNO-GPIfcTK  I NODE l <KOOr2~)  - RATEnlAO 
RETURN  

TRANSPORT  EQUIPHENT  GROUP 


1SS 


17  CONTINUF 

DATA  GPl7TK/4*0,  207,2*0.420.  406.3*0. 

* 2*0. 207.0/ 

HATE=GP17TK  (NCIDE1  .N00F2  1/100 
TASkNO=GPl7TK<NODEi.NnOE2)  - RATE*lO0 
RETURN 
C 

C 18.  WOR*  ECUXPWf NT  GROUP 

c ‘ ' ‘ 

18  CONTINUE 

DATA  GPT6TK/6*0 , 422,2*0.416.0.0.  408.5*0. 
X 2*0.421.3*0.  419.5*0.  423.5*0/ 

RATC=7jP18TK  ( NODE1  .NOL'E2  ) /100 
TASKNO=GP10TKINOUE1.NODE2>  - RATE»100 
” " RETURN  ~ — 


C 90.  SAR  SEARCH  GROUP 
C FAILURE 
90  CONTINUE 

DATA  GP90TK/9*0.9*0.9*0.9»0.9*0.9*0. 

T '9*0  , 9*0T  '2*0  . 3 03 , 301  ,5*0/ 

HATE=GP90TK(NGUE1.NGDF 21/100 
TASKN0=GP90TK ( NODE  1 .NOOE2) -RATE* 100 
RETURN 

C 93.  SENSOR  SEARCH  GROUP 
E T FUTIORE 
93  CONTINUF 

DATA  GP93TK/72*0 . 206.8*0/ 
RATE=GP93TK(N0DEl,NoDF2 1/100 
■ T ASKN0=GP93TK ( NODE l.NODE21-RATE*100 

RETURN 


C tPINPH 

C FINDS  THE  MINIMUM  TIME  AND  FUEL  PATHS  FROM  ANY  OVERALL  NODE  TO 
C THE  END  OF  THE  SCENARIO 
C 

SUBROUTINE  iMINPH < N , OvCNMX . GPPLMX . MINT IM , MINFUF 1 
IMPLICIT  REAL  LA-21 

"TNTFUFR"! . JlK7NVGPPLM)T,"GRTrUP  ■ INST.E!  AGVFl  AGNW",  AGATN  - 

DIMENSION  GPPLMXI  50.50  ) »OVCNMX(50.5ni.FLAG(50) . F L AGNW ( 50 1 
DIMENSION  Gt  MNTI50.50)  . GPMNF  ( 50 . 5(1 1 . M INT I M ( 50  1 .MINE  UE  < 50  ) 


C INITIALIZATION 
DO  10  1=1. N 

MTNTTMTTTS99999. 

MINFUF ( I 1=99999. 
ELAG(I1=0 
FLAGNWl I 1 = 0 
DO  10  J=1.N 
GPMNT I I . J)=0 . 

10  CONTINUE 
AGAINiO 


"C  “FT77D  THE  MINIMUM  GROUP  TIME  PATH  AND  F UFI  TATR  TOIL  ALE  LTNK5 
DO  20  1=1. N 


00008900 

00008910 

0000892° 

00008930 

00008940 

00008950 

00008960 

00008970 

00008980 

OondeWG 

00009000 
00009010 
00009020 
00009030 
00009040 
007109050 
00009060 
00009070 
00009080 
00009090 
00009100 
0 0 0 0 9 IT 0 
0000912b 
00009130 
00009140 
00009150 
00009160 
""07)7509170 
00009180 
00009190 
00009200 
00009210 
00009220 
0757509230 
00009240 
00009250 
00009260 
00009270 
00009280 
0 07109790” 
00009300 
00009310 
00009320 
00009330 
00009340 
07)0719  3 57)  ' 
00009360 
00009370 
00009380 
00009390 
00009400 
6757575991(5 
00009420 
00009430 
00009440 
00009450 
00009460 

00009480 

00009490 

00009500 

75675719316” 

00009520 


ri  n 


CO  20  0=1. N 

K=GPPlRX< I .01 

GROUP=K/100 

INSl  = K-GflOUP»l60 

IMGROUP.EU.OIGO  TO  20 

Tall  *6pn i n (TnouP  . i nst  . t .f  i 

GPHNlJ  n J I = T 
GPRNF ( I ,ol=r 
CONTINUF 


C FINOS  THl  MINIMUM  PATH  WITH  RESPECT  TO  TIME 

c 

HINT1H<21=0. 

FTTAG 12  1 =T 

30  DO  SO  0=1. N 

rririAGf J) .ro.oi  r,o'~rn  to 

00  40  1=1. N 

TrrovcNwrn.JT.EO.oiGo  T0  40 

TPATH  = GPMflT  ( 1 1 JMMIliTIMI  J) 

rTTTPA'TlT.GE  .HINTIIFI  I ) I GO  TO  40 

RIN71*( I )=TPATH 

FTTCnvrrm 

AGA1m=1 

nr  conttnuf  

SO  COMINUF 

DO  6T)  T = 1.N 

FLAG! I > =F  L AGNw I I ) 


GO  CONTINUE 

rrtA&AIN.TQ.OlGO  TO  10(1 

AGA 1 N=0 

GO  TO  37T~ 

C 

~T0"T7  COTITTNUr 

FINOS  The  MNIMuM  path  WITH  RESPECT  TO  FUEL 


PINFUF <21=0. 

rLAG {? 1 =1 
.0  00  130  0=1. N 

rrrFCA'GTJTTTP.TT)'  GC'  TO  T3D  " ' 

00  120  1 = 1 . N 

rriovcNHxn.Ji.ro.oiGr  to  120 

FPATH  = GPPNf  (1.0) FMlHf  UE I J 1 
rFlFPttTH.Gr.KTNrOEn  11G0  TO  120 
PINFuFE I 1 =F  PATH 

TL  AG1TOTT  m 

AGA IN= 1 
nr  CONTINUE 

10  CONTINUE 

~TriAGATN.rQ.01GO  TO  200 
AGA IN=0 

(10  19(T“T=1TN 

FLAG  ( I 1 =Fl  Af-Nw  < I I 

TT.AGNN  (T1  = 0 

>0  CONTINUF 

GO  TO  no 

)0  RETURN 


C JGPW1N 
C 

C COMPUTES  THF  SHORTEST  PATH  THROUGH  A GROUP 
C FOR  TIRE  ANN  FUEL  CONSUME  TIUN 


00009530 

00009540 

00009550 

00009560 

00009570 

0000958b 

000I1959U 

00009600 

00009610 

00009620 

00009630 

0000964b 

00009650 

00009660 

00009670 

OOiTMbftu 

00009690 

00009700 

00009710 

00009720 

0r.00973u 

00009740 

(1000975b 

00009760 

00009770 

0000978b 

0000979b 

nono9b0(i 

0000981b 

00009820 

0000983b 

00009840 

00009850 

o/mnvB6u 

0000987b 
00009880 
0000989b 
00009900 
00009910 
00009920 
0000993b 
00009940 
00009950 
00009960 
00009970 
0on09980 
0000999C 
0001 ObbO 
0IIP1  OUlb 
0001 0020 
0001 0U3b 
00010040 
00010050 
00010060 
0001 0070 

oooi ooflb 

0001 0090 
00010100 
00010110 
0001 012b 
00010130 
00010140 
0001015., 
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L 


c 

SUliKUl'T  INF  AGPMMOHCH'P,  INST.MINTIM.MINFur) 
IMPLICIT  HFAL(A-Z) 

TflTF  f.FTr'GRTlljP.INST 


onnioi6o 

00010170 

oomoiAo 

IHlira 


MINT  1M=S9S99. 

MINI  U1  rs9<}49. 
iriGHOUP.MJ.SUIGO  TU  SO 
irtGKOOT.F0.93)G0  T u S3 

(,n  lull.  2 . 3 . M , S , b , 7.  G.S.1U.  11.1?.  13.  19,15,16.17.18)  .GHOUP 


t 

L 1.  ASSIST  GHOUP 
C 

1 COMINUF 

cmnr  tcruatfgftjuv  . tn ' tttvtvtt? » t l ? . f l n 

CALL  ILkUAT (GHOUP  ,1 NS T.l. 3<P13<T13<F13I 
CALL  iLKUATIGROUP.TTJST,  1 ,5 .PI5 . T15 .F15 ) 

CALL  1LKDAT ( GHOUP. INST . 1 . 6 < P16 • T 16 • F 1 6 1 
CALL  iL  KL  ATT  GHCUP.  INST.  3.9  .F39 .T39.F39  > 

CALL  JLhOAT  (GHOUP.  INST  , 9 <2  .P92 . T9?  <F92  1 

CACL  3LKUATIGHCUP.  INS7.6VI.P67.Tb7.Pfc7) 

CALL  1LK0AT  I GHOUP, INST . 7 . 2 . P72  . T77  . F 7?  ) 
T1397=T13PT 39  *T9?  “ 

T1672=T16<T67<772 

iriPIP.GT.O. .AND. T12.LT. HINT IW)¥ INT JMrTl 2 
IT  (P13.GT.0.  .ANU.T139P.L  T.  Ml  NT  IP  > M INT IM=T 1 39? 

1)  IP1  S.GT.TT.  .AMl.Tl'j.rT.HINI  1M)MIM  IMSTlb 

IT (P16.GT.0.. AND. Tlb7P.LT. MINT lMIMlNTIMiT 167? 
ri39?:ri3*F39+F9? 

I 167?ir  lb<Fb7<P7? 

Tr(Pl?.GT.O.  .AN0.F12.lT.HINFUF)HINniF  = ri2 
IF ( PI J.GT.O..ANO.F 13MP.LT. MINFUF )KINFUF=F 139? 

TT (P1S.G)  .U.  .AND.)  15.17  .MINT  Ul  )¥  INF  111  =F"15 

IT  (P1G,(.T  .0,  ,AND.Flb7?.LT  .MINFUF  )MINFUF=F167? 
RFTURN 
C 

t 

C 2.  ESCOHT  GHOUP 


2 CONTINUL 

CALL  ILKOATIGROUP.INST.l .2.P12.T17.F12) 
CALL  $LKDAT( GROUP. INST. 1.3.P13.T13.F 13) 
TFIPIP.GT.O. .AND.T12.1  T .MINT IH ) MINT TH=T1 2 
IT (P13.GT .0. . AN0.T13.1  l.MINTlM)MINTtMrT13 

1 F I P 1 V . GT.-0 . ; ANTT.  r 12  .FT  .MINTUE  FMTNFTTF  =F1 7 

IF1P13.GT.0.  .AGO.  FI  3.1  T . M I NFUE  I M INFllF  =F  1 3 
RFTUHN 
L 
C 

C 3.  FIGHT  FIRE  GHOUP 


00010200 
00010210 
00010220 
000 10230 
00010290 

— 0OO1O23S' 
00010260 
00010270 
0001 0280 
00010290 
00010300 
obtuuilo 
00010320 
00010330 
000 1 0390 
00ni0350 
00010360 
uoni u3  7u 
000 1 03B0 
00010390 
00010900 
00010910 
00010920 

00010990 

00010950 

00010960 

00010970 

00010980 

07)010990 

00010500 

00010510 

00010520 

00010530 

00010590 

oooi  055o 
00010560 
00010570 
00010580 
00010590 
00010600 

00010620 

00010630 

00010690 

00010650 

00010660 


CONT1NUF 

CALL  JLKD AT ! GROUP « TNST .1 .2.P12.T12.F171 
CALL  3LKOAT I GHOUP. INST, 1.3.P13.T13.F13) 

CALL  SLKOAT (GROUP , INST .3.9.P39.T39.F391 
CALL  *L*DAT( GROUP. INST , 9 . 2 . P92 . 797 . F92 ) 

ri3977I13FT396192 

IF (PI 2.GT.0. . AN0.T12.1T. MINT IH) HINT l H=T 12 
IF1P13.GT.0. .ANO.T1 397. LT. MINT IM1M1NT1M=71 397 
F1392=F13+F39fF92 

irTP17  .T.T  . 0.  . AND  .FI  2.1  T .MINFUF  TWTNF7)F±F1  2 
IF 1P13.GT.0. .ANO. FI 392.LT. Ml NFUE ) MINFUF = F 1392 


00010680 

00010690 

00010700 

00010710 

00010720 

7)00107371 

00010790 

00010750 

00010760 

00010770 

00010780 


JO|U  J'7  O JU  Jl/1  I I , b U U Jh 


HtTuRN 


f.  wturirf  troop  

CONTINUE 

CALL  »LKUAT( GROUP.  INST.l  , 2 .P12 . T 12 . F 1 2 > 
CALL  »L*DaT(GrOUP.InST.1 .3.P1J.T13.F13) 

IF CP12.GT.0.. AND. T12.1  T .MINT IM) MINT IR=T12 
ITTT'IS.'STYUY.  AKCiT  1 J.l  T.MIVTIR  )R  IliTiRsTl  3 
IT  (P12.GT.0.  .ANU.F12.I  T.M1NFUE  )**  I NT  liF  = F 1 2 
IFIPIS.GT.O. .AND.F13.I  T.MlNFUE )R1nFiiF=F13 
return 


•5v*insitct  xaroup ~ 

CONTINUE 

CALL  *LKDAT( GROUP. INST. 1 .3.P13.T13.F13) 

CALL  tLKOATt GROUP. INST. 1. 5. P15.TX5.FT5> 

CALL  »LkUAT ( GROUP. II.  ST  »i,4,P34  • T34 • F 34 ) 

CA  L1Y1  Owj  ATT  GROUP  VTNSTY4  . 2 ,-p42TT4p-,  F42  1 

CALL  4LK0AT  (GROUP.  It. ST  .5.6, P56,  T5fe  56  I 
CALL  JLKDA  T < GROUP .INST»b.2.P62.T62,F62) 
T1342=T13*T34. T42 
T1562=T15+T56+T62 

IT (P13.GT  .0..AND.T1342.LT .MINT IM)MINTIR=T1342 

TrrPl'i.GT.0'.'.AlTO.n5F7.Lr.FINTIP)PlNTTM  = T156? 

F134iiF  13+f  34  + F42 
F1562=F15*F56+F62 

IF  (P13.GT.0.  .AN0.F1342.LT.M1NFUE  ) R INFIJE  =F  1 342 
IFIP15.GT.0.  ,ANO.  FI  562.LT.  MINFUE > 4 INFUE=F 1 562 
RETURN 


6.  HONITOR  GROUP 
CONTINUE 

CALL  SLKDAT (GROUP. INST, 1.2.P12.T12.F 12) 
CALL  ilKOATr&ROOP.n.Sr.1 .3.F13.T13.F13) 
CALL  *LKUAT( GROUP. INST. 1.4.P14.T14.F 14) 
CALL  jLKDAT) GROUP .INST. 1.5, PIS. T1S.F15) 
IF(P12.GT.U..AN0.T12.(  T.RINTIM)RIkTIR  = T1? 
TFIPI3.GT.0..ANO.TI3.1T .RINTIM )NInTTmzT13 
IFIP14.GT.0..ANO.Tl4.lT.«INTIM)RlNTn<  = T14 

mm  .Trr.tr. and  ;ti  5 .ft  .tunt  tw  tpin  t t r=t  i 5~ 

IF(P12.GT.O. .AND. Fid. I T.R1NFUE >MINFllE  = F12 
TFIP1S.GT.0..AND.F13.I  T.MINFUE  )»Ir,FlifsFl  3 
IF1P14.6T.0.  .AND. FI 4. 1 T.RINFUt  IRINFlIE  = F14 
“■  IFTPI5~.6T .0.  .AND. Fib. I T.MlNFUt  >MInFmf=F15 
RETURN 


T.  PATROL  GROUP 
CONTINUE 

CALL  *LKUAT t GROUP. InST. 1.2. P12.T12.F 12) 

CJr[I  -TOTOAT , group  . IN5T.T.T.T 1 3".  T1 3 . FI  3 ) ' 

IFIP12.GT.0. . AND. T 12. 1 T.MINTIM)MInTTRsT12 

IF  fPl 3 • gT . 0 . . AND.T1 3.LT«HINTIR)HInTTR*T13 

IFIP12.GT.0.  .AND. FI 2. 1 T.RINPUE  IRlNFlIf  SF1? 
IF(P13.GT.0..AND.F13.I  T.HINFUE  >RINFuEsF13 
RETURN 


0001 0790 
000)0600 
0H01 OOIO 
00010020 
0001 0630 
00010040 
0001 0050 

oroiofefeo 
0001 0070 
0001 0000 
00010090 
00010900 
00010910 
00010920 
G0C10930 
00010940 
0001 095u 
0001 09GU 
0001 0970 
00010960 
00010990 
00011000 
0001  lUlfl 
00011020 
0001 1030 
00011040 
0001 105u 

onni lofto 

00011070 
OCOUOfiO 
O00U09O 
0001 1 10U 
00011110 
0001 1120 
0001 1130 
0001 1140 
0001  1 ISO 
0001 1 160 
00011170 
00011180 
00011190 
0001 1200 
00011210 
00011220 
00011230 
00011240 
00011250 
00011260 
00011270 
00011200 
00011290 
00011300 
00011310 
00011320 
00011330 
00011340 
00011350 
0BB1 1 360 
00011370 
00011360 
00011390 
0001 1400 
00011410 


159 


c 

0001 1420 

c 

C 8. 

RESCUE  GROUP 

00011430 

00011440 

c 

tt 

CONTINUF 

00011450 

00011460 

CALL  tLKOAT (GROUP. INST.l . 2 . P12 . T12 . F 12 » 

CALL  *LKOAT (GROUP, INST. 1 .3.P13.T13.F 13) 

00011470 

00011480 

IF(P12.GTiO..AND.T12.l  T .M1NTIMIMINTTM-T12 
IF(P13.GT.0..AND.T13.LT.MINTIM)MINTTM=T13  , 

00011490 

00011500 

IT  (Pl2.GT.ff.  .AND.ri^.l  t . M I NTuT ) N InF Ilf  =P  1 2 

IF(P13.GT.0..AND.Fli.lT.MINFUE )MINFUE=F13 

0001 1510 
00011520 

c 

Return 

00011530 

00011540 

c 

C 9. 

RESCUE  RETURN  GROUP 

00011550 
0001 1560 

c 

9 

CONTINUE 

600T1570 

00011580 

L ALL  SLKUAIIGHUUP,IWST,l,2,H12,Tl2.F12) 

CALL  tLKOAT (GROUP. INST .1 .3.P13.T13.F13) 

CALL  tLKOAT (GROUP. INST.l. 4. P14.T14.F 14) 

IF (P12.GT .0. .AND. Tic . L T .MINTIM)M1NT1M=T12 

00011590 

00011600 

00011610 

00011620 

IF ( HI  3 . G T • 0 • • AND • T1  5.1  T » M 1 1\)  T IH )M 1 NT iMrTl 3 

IF (P14 .GT.O. .AND.T14.1 T.MINTIM)MINT1M=T14 

ITO  0 VI 630 
00011640 

IFEP12.GT.0.  .AND. F12.1T. MINFUE  )MINFIir=F12 

IF (P13.GT.0. .AND.F 13.1 T.MINI UE ) 4INFUF =F 1 3 

0001 1650 
00011660 

IFIP14.GT.0. • A N 0 • F I h . i T • H IiniFUF ) HI n F u F — F 1 4 
kftukn 

0001 1670 
00011680 

c 

r 10.  5AR  STARCH  GROUP 

C SUCCESS 

0 (TO  TI 690 
00011700 
00011710 
00011720 

10 

CONTINUE 

CALL  tLKOAT (GROUP. INST. 3. 2.P32.T32.F 32) 

00011730 

00011740 

CACt  JLkEJAT  f GROUP  . INST".4  .2  .P42 .T42.P4  21 

IF (P32.GT.0. .AND.  T32.LT.MNTIM)MINTIM  = T3P 

mini  1750 

00011760 

IF ( P42 . GT .0. • AND. T42.L T .MINT IM  J HINT IHsT4? 

IF  <P3?.GT.O.  .AND.F3<?.IT.MINFUE  )MINFUF=F32 

0001 1770 
00011760 

IF  (P42.bT  .0.  .AMi.F4*.i  T.MINFUt  )MInfDF=F42 

RFTUhN 

00011790 

00011800 

T 

C 

C 11. 

c 

11 

SEARCH  FLEET  GROUP 

CONTINUE 

CALL  tLKOAT (GROUP. INST.l .2.P12.T12.F 12 » 

00(1118  Iff 
00011820 
00011830 
00011840 
00011850 
00011860 

c 

1F(hi2.GI . U . . anO . T 12 . 1 T .MINT 1M )RINTIM=T12 

ITIPIP.GT.O. .AND. FI  2.1  T.M1NFUE )MINFUE=F12 

RETURN 

ffffn  1 1870 
00011880 
00011890 
0001 1900 

' c 

C 1 2. 

SEI2E  GROUP 

0001 1910 
0001 1920 

"C  * 

12 

CONTINUE 

CALL  tLKOAT ( GROUP. TnST. 1 .3.P13.T13.F13) 

CALL  tLKOAT  (GKOUP.lt,  ST  . 3.2. P32.T32.F32) 

80811930 
00011940 
00011950 
0001 1960 

T132-T13+T3? 

H132-H 13*P3P 

0001 1970 
00011980 

"rTTPITTTGT.r.  .AND.T132.LT. MTNTIMl>«INTn»rTrJ7  --  - 

Timm  998 

F132=F  13FF3P 
P13P=Pli»P32 

IF  « F'l  32  . G T .0.  .ANO.F132.LT.MINFUE  >MINFUF=F132 
RTTURN 


00012000 

00012010 

C0012020 

80812030 

00012040 
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— — 


— . — - 


1 


C 13.  SENSOR  SEARCH  GROUP 
C SUCCESS 
13  CONTINUE 

CALL  ILKUATI GROUP. INST  .1.2.P12.T12.F12I 
FFIPIP.Gf .0.  .ANO. TIE.  I T .PINTIM)PINTIP=T12 
IF(Pl?.6T.0..ANP.F12.l T.NINFUE )MINFUEsF12 
RETURN 


C 

C 14.  STANUHY  GROUP 
C 

14  CONTINUE 

CALL  *LKUAT(GR0UP.lNST.1.2.Pi2.Ti2.fl2) 

IE 1P12.GT.0. .ANO. T 1e .1  T.MINTIP)PINTIP=T12 

ttipt? tgt; nTrswr.riT .7  t.mi nfueiptnF’uf  =f  i?  ' 

return 

L 

C T5T  STfAfc  GROUP 
L 

"T5 HTOTIRTF 

CALL  LLkOaT (GROUP. INST .1.2.P12.T12.H2) 

TALL  JLkCATIGnOUP.InRt ,1 . 3 . PI 3 . T 1 3 . E 1 3 ) 

CALL  SLKUAT  ( GROUP.  I i.ST  . 1 • 4 . P 14  ■ T 14  . t- 1 4 ) 

IF (P12.6T.0. .ANP.T12.I  T . M 1NT IM ) P INT 1P  = T1 2 
XF IP13 »6T . 0 .. AND . T13.L T .HINT IM ) HINT TMnT13 

TrTPTL  .CTrD.T7WT.~m  . L T.CTNT  I M ) VTNTT  P = T 1 4 

ir(Pl?.GT.U..AN0.E12.lT.MINEUE)MlNEllI=F12 
IF(P13.GT.O.  .At.O.n 3.1  T.PINFUE  IPIl.Fuf  =F1  3 
ir<P14.(.T.0..AND.F14.lT.PINFUf  )PINFHE  = F14 
RETURN 
C _ 

C lb.  mANSEtH  F (Jill  PMF  NT  GROUP 

c — 

lb  CONTINUE 

CALL  iLKDAT(GRCUP.IUST.1.2.P12.T12.Fl?) 

CALL  ILKUATI GROUP. INST . 1 . 3 . PI 3 . T 13 . F 1 3 ) 

'Trm?.-GT;or.TTNT.T12.l  T.MIFJTIN)MInTTP=T1? 

II (P13.GT .0. .ANO.TlS.I  T .MINT IM )PINTTP=T1 3 
IFIPIP.GT.O. .AND.  Flc.l  T .Ml NT UE ) P INF ue sF 1 2 
IT IP13.GT.0. . ANO. F 13.1  T.MINf  UE )MINFUF=F 1 3 
~ RFTURN 
C 

C 17.  TRANSPORT  ruUIPMFNT  GROUP 

c 

17  CONTINUE 

CALL  ILKCAT I GROUP. INST. 1.2. Pl2.Tl2.Fl?) 

CALI  ILKPATl  GROUP.  1 >.ST  . 1 . 3 . P 1 3 . T 13  . F 1 3 I 

C71LT  JLKtr»TT'GR0UPlTTjST'i3i<»  iTT3‘»TT3lI',r34  ) 

CALL  ILKUATI GROUP . 1 NS  1 . 4 . 2 . P42 . T42 . ► 42  > 
T1342iT13+T34*T4? 

IFIPIP.GT.O. . AND. T 12.1 T.P1NT1M)PINT1P=T12 
IF  (PU.6T.  0..  AND.  T134?.LT.  PINUP)  PINT  IP  = T 1342 
) 1342:Fl3*F34.f  42 

TTTPT2TCT.  D .T ANPTn  2 .I  T.PT  NEUF  )P7 NE fir  =n  ? 

IF  IP13.I.T.0.  .ANO.f  1 342.  L T.MINf  UF  )«INFIJ(  =F134? 
RFTURN 
C 
t 

C 18.  *OHk  ) GIjIPP)  NT  GROUI 


00012050 
00012060 
0001 ?070 
00012080 
00012090 
00012100 
"00121111 
00012120 
00012130 
0001  214.1 
00012150 
00012160 
00012170 
00012180 
00012190 
0 " 0 12200 
00012210 
0001 2220 
00012230 
00012240 
00012250 
0001  226.1 
00012270 
1)0012280 
00012290 
00012300 
00012310 
00012320 
00012330 
0001 2340 
00012350 
00012360 
00012370 
OOOl 2380 
0001 2390 
00012400 
00012410 
00012420 
0001 2430 
00012440 
00012450 
00012460 
00012470 
0001 24flu 
00012490 

0nni250G 
0001251U 
00012520 
00012530 
00012540 
0001 255U 
00012560 
00012570 
00012580 
00012590 
0(1012600 
nr.ni2bio 
00017620 
0001 2b30 
00012640 
00012650 
OOOlPbhl) 
00012670 
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c 

1 6 


CONTINUE 

CALL  1LKLA I (GROUP.  I l^S  T *1  .2.P1Z.T12  .T  12  ) 

Tall- tLhC'f.T ( GROUP  YlT.Fr , 1 . 7.F  1 3 . 1 13 V?  1 3 ) 

CALL  UrOaT  < GROUP.  I i 1ST  . 1 . b.PIS.  T15.F  15  t 
CALL  ILkLAT  < GROUP  . I i.S  T t 1 . 6 . F 1 t>  . T 1 6 . F 1 ft  ) 

CALL  JLKCAT (GHUUP, IuST .3 .4 ,P34 , Ti4 .F34 I 
CALL  iLKUAT(GRCUP.I..<:T.4,2.P4«;,T42,..42l 
T\ JaTA4*T4? 

* i f r p~r> . i.t;  o ..Wi  .11771  t.miut  ip  ) s tmt  t«=n  ? 

IT  ( P13.M  . C . . Al'.O.  T 134  2.LT.PINT1PI«'INTII*  = T154  2 
IF7P15.GT.0.  .AND.T1S.I  T . MI  NT I M ) v InT  I V = T 1 « 

IF <P16.GT.0..AND.Tlo.l  T.MINTIM)RINT14=T16 
F134?zF  1 3 .F34  + F42 

IF  (P12.GT  .0  . . ANO.F  Ip  .1  T.MHJFUF  )WINfllE=Fl? 
TFTTTT75T  r07.TiI-r.Tl  347 . XT'.  »71VF  UT  J PTTTFDF  - FI  24? 
ir  (P1S.GT.0.  . AT.  n.  FIS.  I T.M1NFUF  (vlNFi.f  = F1S 
IFtPlFTIGTrO.  .ATC.rif  .1  T.KIHFUE  )»tNFUF  = F16 
KFTUHfv 


SFARLH  GROUP 


c 

L 90.  SAP 

r r A I LUKE 

90  CONT1NUF 

CALL  1LKCAT(CH0UP.II.ST,3.9,F’39,T39.F39  1 
CALL  sLKLAT  tGKOUP.lT.ST  .4,9,F'49.TU9.F49> 

IF  (P39.GT.0.  • ANF  • T39.LT  . WIT.  TIM  ) MINT  IM  = T39 
IT  (P49.GT  ,G  . .AN0.T49 .1  T.MlNTIM>PlNTtN=T49 

71  (P19  . G1  . C.TGD  .T3T7I  T . W I TIF  U FT  W TNT1  T 5F  39 

IF  (P49.GT  .0.  .AGD.F4-j.i  T .PINFUE  |MNF.IE=F49 
RFT'JFT 


93.  SFNSOR 
FAILL'Rt 


SE  ARCH  GROUP 


-93“ 


c 

T" 


TtornTTUT 

CALL  iL KC AT ( GROUP . IuST.1.9.PI9.T19.FI9) 


IFCPT9.GT  .0  . .AT4&.T19.V7  , 
IT  (P19.GT.0.  . /.NO «F  1^.1  T, 
RETURN 


ENU 


milUMVI4Tl*:TlS 
MINFUF  |MINnif=F19 


c 

C 22 

c 

C r 1N0S  T VALUE  OW  A STHA1GPT  LINE.  GIVFN  X 


E * TEi.PS  INFIMTFLT) 

FUNCTION  7ZI X .XI . Y1 .X2.T2) 


IF(AbS(X2-XI ) .LI ..0001 FOOTO  1 

SLOPE?  ( T7-T  1 W ( *?->IT 

IF(ABS(Y2-Tl).LT..0o01)  SLOP! :0 . 

ffiTI-RLOPr»Xl 

2z=scnPE»x+i- 

RXTUHM 


L 

t- 

c 


'7/=TTi*T?i/r;- 
RF  T URN 
ENC 


21 3 


onni ?68u 
rnni?b9o 
onnipiou 
00012710 
on 01  ?7?u 
nnoi?73o 
00012740 
00012730 
nnoi ?7bo 
0 0 0 1 ?T  7 0 
00012780 
00012790 
00012800 
00012810 
00012820 
0 0 01 2 8 3 0 
00012840 
00012830 
00012860 
00012870 
onoi2eso 
■ ~ '071077890 
00012900 

onoi?9io 
00012920 
00012930 
000 1 2940 

~ nnor293o 

00012960 

00012970 

00012980 

00012990 

0QC13U00 

nonrsuio 

00013020 
00013030 
00013040 
0001 3030 
00013060 
TTD01  3070 
00013080 
00013090 
00013100 
00013110 
00013120 
OT01313O 
00013140 
00013150 
00013160 
00013170 
00013180 
nOTTT3T98 
00013200 
00013210 
00013220 
00013230 
00013240 
0717177780 
00013260 
00013270 
00013280 
00013290 
00013300 


If)  2 


FINOS  T VALUE.  ON  HKOKEN  LINE  OF  3 POINTS, 

GIVEN  X VALUE  ANU  THE  3 POINTS  (ASSUMIN'.  ENOS  CF 
L I NT  EXT E NC  infiNTTlt ) 

FUNCTION  773(X,X1,Y1,X2.YP.X3.Y3) 


IFIX.LE.XP)7Z3-ZZ(X.X1.Y1.X2.Y2> 

IF(X.GT.X2)/Z3=Z2(X,X2,Y2.X3.Y3) 

return 

ENO 


FTM0'5'_Y' VALUE"  "UN  BROKEN  TlNE""0F  *T POINTS « GIVEN  V VALUE 
AND  THE  4 POINTS 

(ASSUMING  ENDS  OF  LINE  CXTFNO  INFINITELY) 
niNCT TON  ?Z4(X«Xl,Yl.X?«Y2«X3,Y3,x4,Y4) 

“ir(X.tr.X7)7Z4;ZZTX,Xl  iTl.X2.Y2) 

IF ( X.GT ,X2  .AND.  X.LE.X3)ZZ4=ZZ(X,X2.Y2.X3.Y3) 

IF(X.GT.X3)7Z4=ZZ(X.X3,Y3.X4,Y4) 

return 

ENO 


ZZ5 

FINOS  Y VALUE  ON  BROKEN  LINE  OF  5 POINTS.  GIVEN  X 
VALUE  ANU  ThE  5 POINTS 

(ASSUMING  ENDS  OF  LINE  EXTEND  INFINITELY) 

TUKETYOV7Z5  ( X .XT.  YI  . X2  . Yf  . X3 , Y3 . x"4  • Y4  VXBYYB ) 


IF(X.LF.X2)/ZS=ZZIX.X1.Y1.X2.Y2) 
rr(X.GT.X?.AN(i.X.LF.X3)ZZ5=ZZ(X.X2.Y2,x3.Y3) 
IFEX.6T.X3.AN0.X.LF.X4)ZZ5=ZZ(X.X3.  Y3.X4.  Y4 ) 
ir{X.rT,X4)7Z5=77(X.X4,Y4,X5.Y5) 

E(E  TURN 
ENO 


FUNCTION  ISRTIMtVASTShl 
IMPLICIT  REAL ( A-Z ) 

INTEGER  MASTSK .ENG.sSPOTB 

U IMF  NS  I ON  SSPKEjD  ( A ) ,C»SPU( 4 ) . SFCENG  ( 4 ) . SFCCF  ( 4 ) . TOTSFr  ( 4 ) 
UIME  NS  I ON  S(  CGAL  ( 4 ) .HPUT  IL  ( 4 ) .FUFl  PT  ( 4 ) .FN[  UR  ( 4 ) .RANGE  ( 4 I 
LI  ML  NS  I ON  MOT ION( 4 ) . TNRAIM  4 ) .FUFLH2I 4 ) . FNG( 4 I 
COMMCN7CU  AR  'L  TUB".  BE aF  . OTCL  . ORaF  . SsPrBO .DE  Ck  , usELD . 

1 E UFLrP.CARGCP.TOInDSE  . SLR  V I V . HP  INST  . HPPTCN  . HPTNK  T . 

2 CoSFN.FNG.SFLtNG.SFCrr.TOTSFC.SFCGAL  ,E(PlTIL  . 

3 FUELRT.FIJEI  H7  . E NDUti . R ANGE  . MOT  I ON  . T NR  AO . SSE  OTP 
ASST.BoRD.RTRV  .REN'u.rE  VP 

IF  (MASTsk. E(..l  .OR.  MASTSK.  t(J.  2 .OR.  MASTSK.  EO.  4 
X .OR.  MASTSK. LO.fc  .OR.  MASTSK .FQ . 7 ) GO  TO  1 
SSK  T I M= 1 . 

rftorn 

tSKT lM=i$3(xOT I0NI4 ) ,A. ,1 • . .5,1.,  l.,P.) 

RE  TURN 


00013310 

00013320 

00013330 

00013540" 

00013350 

0001 3360 

00013370 

00013380 

00013390 

00013400 

nnoi 3410 

00013420 
00013430 
00013440 
00013450 
00013460 
00013470 
00013480 
00013490 
00013500 
00013510 
00013520 
00013530 
00013540 
0001 3550 
0001 3560 
00013570 
00013580 
00013590 
00013600 
00013610 
00013620 
00013630 
00013640 
00013650 
00013660 
0001 3b70 
00013680 
00013690 
00013700 
00013710 
00013720 
00013730 
00013740 
00013750 
OOP  1 3760 
00013770 
00013780 
00013781 
00013782 
00013783 
00013784 
00013785 
00013786 
00013787 
00013800 
00013810 
00013620 
00013830 
0001 3840 
00013850 
0001 3860 
00013870 


U:l 


000136B0 

C OOfll 3890 

C 1 VNT  I **  00013900 


c 

00013910 

FUNCTION  iMNT IF (VaSTSK  ) 

00013920 

IMPLICIT  HfAL(A-ZI 

00013930 

INTEGfH  VAST  Sh 

00P13V40 

CO**(JN/MNCO*/lt.NG 

00013950 

c 

BUPU,RTR\/.»LUP 

00013960 

c 

00013970 

IF IVASTSK.E0.2  .0R.,SASTSK.EU.4 

00013980 

X .UK.  MASTSK.LU.7luO  TO  1 

00013990 

%MNT 1V  = 1 • 

00014000 

HrTUPN 

00014010 

1 

»MNT 1W  = M4 (LI  NO.O. . 1 . . 100.  .1..  400.  ,3..  1000. . 3.) 

00014020 

RTTURn" 

00014030 

LNO 

00014040 

c 

00014050 

c 

407TIV 

00014060 

c 

FUNCTION  tVZTIVIMASISK > 

00014070 

00014080 

T"PLiriT  HrAUA-2) 

00014090 

INTEGER  MASTSK . V 1SD1 B 

D0C14100 

C0MVCN/VZ/VISniS(3.3) 

00014110 

CP*KGfv/MNCOV/l  LNG*f UFRAC • VISUTft 

00014111 

c 

1CNT 

00014120 

ir(VASTSK.t«.14IG0  TO  14 

00014130 

iV7Xit>-l . 

00014140 

return 

00014150 

14 

»VZTIw::vISPIS(1.VISGTr)  + VISCIS<2,vI.SCTB>* 

00014160 

X ?.0»VlSDIS(3.VISCTi>) 

00014170 

RETURN 

00014160 

END 

00014190 

c 

c 

SSPEDU 

00014200 

00014210 

c 

00014220 

c 

CALCULATES  PKOBAEULITT  aNO  TINE  FOP  SEARCH 

00014230 

C 

FOR  PEOPLE  AND  SEARCH  FOR  DIST.  UNIT  TASKS 

00014240 

SUBPOUT  INF  iSPEOUtSPEFO.Sx.A.NMAX.CF.TMAX.PS.PF.TS.TF) 

00014250 

IMPLICIT  REAL!  A-TI 

007114260 

INTFfcFR  l.J.K.L.NMAX.NFGLLS 

00014270 

DIMENSION  AIPHAI5) .SPFEDI4) 

00014260 

DATA  ALPHA /I  . 0 0 . 2 . 1 1 . 3 . 3 1 . 4 . 37 , 5 . 1 £>  / 

00014290 

IFISP.LE .0. .OR.A.LE.O. .or.nvax.le.o.or.cf.le.o. .OR. 

00014300 

X TMAX.LF.O. )60  TO  97 

00014310 

GO  To~30TJ 

0001432O 

99 

PS=0.0 

00014330 

PF=1.0 

00014340 

TS=O.D 

00014350 

IF = 0 . 0 

00014360 

RETURN 

00014370 

300  NfULL  S = rJMAX 

0 001 4360 

SFRACiO. 

00014390 

c 

TEST  IF  NUMBER  OF  FULL  SEARCHES  TAKES  TOO  l ONG 

00014400 

301  TF  = 0. 

00014410 

DO  20  1 = 1 .NFULLS 

00014420 

TNE XT =(CF»A» ALPHA! I 1 ) / ( SPEEC ( 3 ) *SW ) 

00014430 

TF^TFTTNFYT- 

06014440 

ITITF .GT.TMAXI60  TO  32 

00014450 

20 

continue 

00014460 

GO  TO  33 

00014470 

TT  ETTCEE0S"  THAT! 

00014466 

32 

NFULLS= 1 - 1 

00014490 

164 





TFULLS=TF-TNEXT 

00014500 

TLAST=TMAX*T FULLS 

00014510 

SFRAC=TLAST/TNEXT 

00014520 

TF=TMAX 

00014530 

C FINDS  PS  AND  PF 

00014540 

33  POON=SPOO(CF .NFULLS) 

00014550 

P00N1=*P0D»CF  .NFULLS+1  ) 

00014560 

P00L  = SFHAC»(P0CN1-PUE:N) 

00014570 

PS=POON+PODL 

00014580 

Pr=i.o-pS 

00014590 

C CALCULATE  TIME  OF  SUCCESSFUL  SEARCH 

00014600 

SUM=G • 

00014610 

TMBEFJ=0. 

00014620 

irji)  j=i,nfui:ls 

00014630 

POOd=$POO(CF ,u)-*POU(CF, J-l ) 

00014640 

00014650 

TMBEF J=T*BEF JfTIMJ 

00014660 

9?-  TTP  J-  fCF»? » ALPHA  ( J 11V 1 SPFFD  (T1  * SW  ) 

00014670 

AVTMJ=TIRJ/2.0 

00014680 

TOTTFJ= AVTWjtTRBEFj 

00014690 

SUR=SUR+TOTTRJ»PODJ 

00014700 

0 0 0 1 4 7 15 

iriSFRAC.FQ.O. )G0  TU  95 

00014720 

TOTTML  =TFUL  LSVTITA  ST  72. 

00014730 

SUR=SUR+TOTTML*PODL 

00014740 

95  T5iSD»  /PS 

00014750 

RE  TURN 

00014760 

rub 

00014770 

c 

00014780 

C IPOD  ' 

C 

x cmxulatfs  PRTjnfifntrrr  or  detection  ostng  curves  prom 

C SAR  manual.  FIGURE  8-65. 

FUN  CTT017-*  P G U ( CF  ,'WFSHFHT 
IMPLICIT  REAL ( A-Z  ) 

“ ~ IRTFGFR  RRSRCH  ' ‘ 

IF(NRSRCH.EG.O)*POO=G. 


IFrNRSRCH.Eli.IlSPDO=**5(CF,0.7D77.6.. 
IF (NRSRCH.EQ.2 )6P00=**5CCF . 0. . 0. • . 39 . 
IF  l NF  SF  CH  • LG  • 3 ) IFUC  = I$5  (XF70  • » U7  , • 2 1 , 
IF <NHSRCH.E&.4  )$P0C=SS5(CE .0. .0. . .21  . 
IF(NRSRcH.EG.51$P<ro=»i5ICF,C. .0.. 722. 
IF<SPOC.GT.l.U)»POO=l.U 

■return  " 

END 


55,1.1 ,.83. 1.5.. 95.1. 
.8*. 7*. 85,1. ,.98.1.3. 
757.4  . 776  . .8.  .9779917 
.8.. 4, .85*. 8*. 95, .8.1 
.7, .4, .9,. 5, .98, .75,1 


8. .97) 
.99) 
991  - 

. ) 

. ) 


C 1SSHP 

C CALCULATE  S PROBABILITY  AND  TIRE  FOR  SFAHCH 
C FOR  SKIP  TASK - 

SUBKOUTINF  *SSHP ( SPEED , TBEF . Sh . E . VTAR , TMAX . PS ,PF , TS . TF > 


00014790 

00014800 

00014810 

00014820 

00014840 
00014850 
00014860 
00014870 
00014880 
00019B98 
00014900 
00014910 
00014920 
00014930 
00014940 
-50014950  ' 
00014960 
00014970 
00014971 
00014972 
0001498U 


INTEGER  I.J 

" DTUFTTSIDN  SPEFBT4)  “ ~ 

IFtSX.LE.O.  .OR.  TPAX.LE.O. ) GO  TO  99 

-pT=3.m59 

UELTAT=0 • 1 


GO  TO  90 
99~  P 5=876 
pr*i  ,o 

T5*8. 

TF  = 0. 


0 0 51 4995 
00015000 
00015010 
00015020 
00015030 
0001S040 
“55519050 
00015060 
00015070 
00015080 
00015090 
000,5100 


1 


165 


kfiuhn 

c 'Initialise  counters 

90  FPROlirl. 

TSfUBl  Ksft* 

TDLMiW  = 0. 

PSllELT  = i. 

C START  AT  Tint  2FR0 
'TrU.CI 

C riND  TAR61  T • S AREA  THAT  IS  STILL  UNSE  ART  RFD 

~STT  ‘ATGTuT'rpIi  ( E"*STKfiiTTT7f  F+'TTBrt  ThTT*** 

ASRCH()rs«i*SHCFO(?)»(T*nELTH) 

ATGUNs  = ATgToT- ASRCt'l) 

C TEST  AREA  UNSE  ARCHEl1  S IF  .LI.  aSHCHU.ThEN  PSrl.tLSF  CALCULATE 
C“ 'PROBAmiTY  OF  SOCCE5S  IP  NFxt  DELTA  T 
IMATGUNS.LF  .ASRCHOIGC  TO  100 

psuuT=(SL*sPirDi?)»r'rrnnT7irraJiTs  " 

FPROU=FPROU»<l.U-PSOEl Tl 
rTroHETTrTRDWFRVtTFTjrLTHl  »PSDELT  " 

TC’ENGMrTOFNOPtPSCEL  T 

TsTvorcm — 

c test  for  time 

1 m . he  . i wax  i bu  Tp-rirr 

GO  TO  20 

nw — PKarrr ■ — 

PFrO. 

rROMETTrWJMFPy  { TFDTLT  H ) •PSDELT"" 

TOENORr TOFNOP+PSCCL  T 

rS'rtNU^FR/TTErjOW 


onoisiio 

0001515.1 

00015160 

' 00015171) 
00015100 
00015101 
00015190 
00015200 
00015201 
BoTflsSlO 

00015220 
00015230 
00015240 
00015250 
0O01526U 
007115270 
00015260 
00C1 5290 
00015300 
00015310 
00015330 

-nnor53nro 

00015350 
000153Gb 
00015370 
00015360 
00015390 
‘ '55015400 


TF=TRAX 

TTF7CJKM 

C TIRE  IS  T R A X 
'151  PSrlTB-FPRun 

Pf  rFPROU 

TFrTNAX 
Re i urn 
END 

c *cri7 

T 


FINOS  THE  CARGO  CARRYING  PARAMETER  FOR  THE 

— TRANSPORT  HA  STrR  TA5R ' 

SUBROUTINE  *CC 1 7 ( GRuUP . I NST . N0DE1 . MlOE? . DECK . C ARGCP .CCO ) 

iwucn  bcaua-zt 

INTEGER  GROUP. INST. i.OOEl .NODE 2. GROUP 1 .ROa.GPD ATI 

CURl«UN/5PDATB/GI>DAUnnTV21  .■GPUATsnnr,  m 

GROUP  1 r(,R0UP 

rFIGH5UPTGE.'951GROUPl  = GROUP-8D  


C GET  ROR  OF  GROUP  AND  INSTANCE 

f ' HO  IDO  ROWTTVIOO  ~ 

IFtGPDATKROW.l) .E0.GR0UP1 .AND.GP0AT1 (R0R.21 

x ~Tcr;  psst  i gi;  tu  1712 

100  CONTINUE 

~m7  ittnohei  . ne  . n a nct. rout?  . nf . 2 i go  to  1734 
AREArGPDAT2(R0R.9) 

WGHTrRPTTA727  RUG  , I OT 

GO  TO  1700 

1731 in  NUDE  I . NE  . 3 . ANU  .TIUTE  7.  NE  . 4 ) KB  T71~TT99 

AREA=GPOAT2(ROR.51 

¥tjHT=GPnAT7TRUhV6  T 

1700  CCOrQ.O 


00015410 
00015420 
00015421 
00015430 
0001544G 
~050T'54'55' 
00015460 
00515470 
00015480 
00015490 
00015500 
~TfOIIT55TTJ 
00015520 
00015530 
00015540 
00015550 
00015560 
~ tnnrT55TTT 
00015560 
00015590 
00015600 
00015610 
00015620 
--irmrr553G- 
00015640 
00ni5650 
00015660 
00015670 
00015680 
nun  1 5690” 
00015700 
00015710 
00015720 


— IFlAKFA.LF.nEC'K 

• TINu • WGHT.Lt  • C ARGCP  )CC 0 = 1 *0 

00015730 

1799 

RETURN 

00015740 

ENG 

00015750 

300 

copies 

•ft  U.  S.  GOVERNMENT  PRINT 

ING  OFFICE:  IR78--  70J-M7-- 551 
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